(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    306794,       6673]
NotebookOptionsPosition[    281823,       6154]
NotebookOutlinePosition[    282520,       6179]
CellTagsIndexPosition[    282439,       6174]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["11.3", "HistoryData",
  CellTags->"New",ExpressionUUID->"b8a9bc58-d3c7-4d05-84ca-648ab6f3b1b0"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"9be63466-0eb2-4908-857d-23ce2ebc07f4"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"1838ef63-2484-4222-a5a4-9308bdaaecc5"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"84b09ebd-fb14-4e54-b7c4-7424eb479e5a"]
}], "History",
 CellID->1247902091,ExpressionUUID->"fd8dc8a0-50e0-49f8-9ef0-872ee681dd96"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"f7701002-67bc-450d-82cc-0acda429b4c2"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"6350031f-09b2-41c7-9098-7b83fb1aaefc"],

Cell["FEMUtils`", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"913a514c-4838-47a0-b96f-f27314667753"],

Cell["FEMUtils`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"655282dc-2bb8-406d-b2e7-6c4a6cf5809b"],

Cell["FEMAddOns/ref/StructuredMesh", "Categorization",
 CellLabel->"URI",ExpressionUUID->"cea1489b-892a-499d-bcf3-3d1e14267d9f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"f8b5ef25-c27b-46b4-9c71-15ce5fc29f2f"],

Cell["mesh", "Keywords",
 CellID->1164421360,ExpressionUUID->"0f3a9db3-ef83-49e6-b034-29d00c3774d4"],

Cell["ElementMesh", "Keywords",
 CellID->777397117,ExpressionUUID->"db847bc1-1922-4cfd-a4c4-477ced4d905a"],

Cell["structured mesh", "Keywords",
 CellID->58035295,ExpressionUUID->"d1febd9e-f08c-4264-a008-0715c6743afc"],

Cell["quadrilateral mesh", "Keywords",
 CellID->447736924,ExpressionUUID->"31fa05dc-189f-4d3c-bd77-0d7acfe6567a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"74d81c92-9897-494e-8154-a7125572632b"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"0ac9c217-e0d5-4174-a5e6-062b5251b4b5"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"a2263205-3d49-4549-8650-2d9f640a908e"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"50e67b05-862a-4099-9dcf-2a90176d6fbc"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"4327a0f1-4763-4a67-93cd-32e48862b959"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"f40a6db0-a739-42e9-83ad-b98fff7fb1d8"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"96e84e44-edb8-41dc-9931-2b23f6da4f0a"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"01152d94-d482-4de7-8f06-51d9584fd3b0"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"a23b47c2-2427-49ad-8948-f71d7aa21b14"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"f706493c-db32-4e9c-8d47-418a9ebfd10f"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"4f4c2b3d-67e2-498c-b8c3-cc30406e6708"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"8fad27a8-ba28-4a1d-a604-8d06fe099844"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"615373c0-3415-4cf9-b4ef-9b279ba40d90"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"dc20f845-a7ce-4e79-b44f-2df0958b1487"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"27be7c47-8b5c-4ead-9ac8-c89ea385f490"]
}, Closed]],

Cell[CellGroupData[{

Cell["StructuredMesh", "ObjectName",
 CellID->1224892054,ExpressionUUID->"fad6b7de-c8be-4f1b-99df-967992e368e3"],

Cell["This notebook has CellContext -> Notebook set", "Notes", "ExcludedMaterial",
 CellID->55248371,ExpressionUUID->"0ee40a55-141c-46f7-b2de-62fd86098088"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"eb103a4b-0399-412f-bf9f-9b996b90a6d4"],
 Cell[BoxData[
  RowBox[{"StructuredMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["r", "TI"], "1"], ",", 
      SubscriptBox[
       StyleBox["r", "TI"], "2"], ",", 
      StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["n", "TI"], "x"], ",", 
      SubscriptBox[
       StyleBox["n", "TI"], "y"]}], "}"}]}], "]"}]], "InlineFormula",
  ExpressionUUID->"794be7e4-ff76-494b-84d2-eb87db88753a"],
 " \[LineSeparator]creates a quadrilateral mesh based on raster points  ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "6b8dabe3-7b34-4b53-8d5f-001e10d8a641"],
 " with ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["x", "TI"]]], "InlineFormula",ExpressionUUID->
  "c633cd49-913b-4475-9790-104d2c759ed2"],
 " and ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["y", "TI"]]], "InlineFormula",ExpressionUUID->
  "d82d165f-40f5-461c-8dcc-b760e25b7c67"],
 " elements in each direction.\n",
 Cell["   ", "ModInfo",ExpressionUUID->"a90d31ff-b834-4ab5-b127-38d3172056a8"],
 Cell[BoxData[
  RowBox[{"StructuredMesh", "[", 
   RowBox[{
    StyleBox[
     RowBox[{"{", 
      RowBox[{
       SubscriptBox[
        StyleBox["r", "TI"], "1"], ",", 
       SubscriptBox[
        StyleBox["r", "TI"], "2"], ",", 
       StyleBox["\[Ellipsis]", "TR"]}], "}"}],
     FontSlant->"Italic"], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["n", "TI"], 
       StyleBox["x", "TI"]], ",", 
      SubscriptBox[
       StyleBox["n", "TI"], 
       StyleBox["y", "TI"]], ",", 
      SubscriptBox[
       StyleBox["n", "TI"], 
       StyleBox["z", "TI"]]}], "}"}]}], "]"}]], "InlineFormula",
  ExpressionUUID->"c735973a-2276-415e-9c33-131def6ca997"],
 " \[LineSeparator]creates a hexahedral mesh."
}], "Usage",
 CellID->982511436,ExpressionUUID->"52ace7ab-3038-4e7f-92b6-ffc1b3cef03d"],

Cell[TextData[{
 Cell[BoxData[
 "StructuredMesh"], "InlineFormula",ExpressionUUID->
  "09bead09-d366-413f-9d87-7995aa2a75e2"],
 " returns an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "d442f294-f1a0-4596-88db-2eb61e58c8e3"],
 " object."
}], "Notes",
 CellID->1067943069,ExpressionUUID->"bffab9eb-6154-4897-80d6-19c38dcd2202"],

Cell[TextData[{
 "In 2D raster points ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "39b25254-ef61-4302-8247-308fcb8adcf0"],
 " are a list of coordinates of a line."
}], "Notes",
 CellID->1790089096,ExpressionUUID->"8694d857-989a-484f-b624-162295f264ec"],

Cell[TextData[{
 "The possibly curved lines ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "cdad0d8a-bf63-4217-a65a-db8b2ea66395"],
 " describe the outline of a domain that has a quadrilateral shape."
}], "Notes",
 CellID->1844186418,ExpressionUUID->"52ad10d9-9ac9-4402-a25b-e7ac691a8517"],

Cell[TextData[{
 "In 3D raster points ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "f13d9382-040c-43c2-8d33-fc184f00eb2f"],
 " are a list of coordinates bounding a face."
}], "Notes",
 CellID->999912828,ExpressionUUID->"a35eb91a-68d5-4ec0-95d6-0c9487461fce"],

Cell[TextData[{
 "The possibly curved faces ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "ec167313-64a4-4e73-8673-4db6277cfba7"],
 " describe the outline of a domain that has a hexahedral shape."
}], "Notes",
 CellID->1358112315,ExpressionUUID->"8fecea63-1456-4f72-bf7b-9e12d0e85ce2"],

Cell[TextData[{
 "Coordinates of consecutive points in ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "4c88f486-0dfd-46b1-94d2-7a127f82e263"],
 " need to be increasing."
}], "Notes",
 CellID->449574948,ExpressionUUID->"88a75643-f7f6-4fce-9f94-aaf4c9ababe5"],

Cell[TextData[{
 "Lines or faces ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "1539dac7-4afe-4b41-a605-77b0d78e6c5e"],
 " and ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox[
    RowBox[{"i", "+", "1"}], "TI"]]], "InlineFormula",ExpressionUUID->
  "11ddcf9a-4c8f-4775-9d89-c3b5808be836"],
 " should not intersect."
}], "Notes",
 CellID->225456746,ExpressionUUID->"461508c2-2619-4b91-acfe-f183f88067fb"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["n", "TI"], 
    StyleBox["x", "TI"]], ",", 
   SubscriptBox[
    StyleBox["n", "TI"], 
    StyleBox["y", "TI"]], ",", 
   StyleBox["\[Ellipsis]", "TR"]}]], "InlineFormula",ExpressionUUID->
  "35a69b67-e64a-416f-9ae8-a71bd6770431"],
 " are positive integers specifying the number of subdivisions in each \
respective direction."
}], "Notes",
 CellID->1185393627,ExpressionUUID->"fa5985df-89bd-4e03-8d20-534213aec050"],

Cell[TextData[{
 "The number of elements requested in each direction is independent of the \
number of points in ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "3ce492d8-3f09-4d66-af5d-8f28fae0adf1"],
 "."
}], "Notes",
 CellID->217063160,ExpressionUUID->"ca137e2c-4ed8-427c-9846-5c18a08acab5"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
 "\"\<MeshOrder\>\""], "InlineFormula",ExpressionUUID->
  "61fda4e3-f1ab-4a5d-9d33-1fbe831d8fe3"],
 " of the returned ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "fe06e894-d64c-4776-8aa5-753ead696132"],
 " object is 1."
}], "Notes",
 CellID->2146619295,ExpressionUUID->"2167e08c-2b5c-495f-bd37-f7881d74ee15"],

Cell[TextData[{
 Cell[BoxData[
 "StructuredMesh"], "InlineFormula",ExpressionUUID->
  "62afcfd0-a87a-404a-b4e1-5a2a055d7b47"],
 " has the following options:"
}], "Notes",
 CellID->159774142,ExpressionUUID->"c3d4e61e-5c8b-42fe-8d97-6d6d9e648380"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "a8288bc9-f805-45d6-8b15-42484d9544ec"], 
    ButtonBox["InterpolationOrder",
     BaseStyle->"Link",
     ButtonData->"ref/InterpolationOrder"], "1", Cell[
    "order of interpolation of raster points", "TableText",ExpressionUUID->
     "35723805-ff98-40c5-8482-d06d073e04c7"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "6a2b4fb4-803e-4b09-81dc-1ab088db5ee7"], "\"\<MeshOrder\>\"", "1", Cell[
    "order of FEM mesh", "TableText",ExpressionUUID->
     "e77f7d65-ea12-438d-9c75-52acae9dce94"]}
  }]], "3ColumnTableMod",
 CellID->698312613,ExpressionUUID->"33cb0f66-f1f6-4047-b8f9-264eb89bb932"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"4c609ed0-0f7b-4ef9-a253-c5a828efc6c4"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"19ac197d-0e9f-4132-894b-2b7cdbb3413e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"387b5f64-e3da-4ca4-9f29-d26ab000a6c4"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"eb191ec8-db74-4f62-9390-ed88f6fd2ee2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"993e4afb-1574-4802-b1fd-64418a44d488"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"ea62d772-14d1-4036-ac29-44b92197a6c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"86b64511-83b1-4208-a010-b7cffde5c663"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ToElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ToElementMesh"]], "InlineFormula",
  ExpressionUUID->"15805562-6bf3-49aa-9bb7-53b9b6a01415"],
 " \[EmptyVerySmallSquare]  ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ExpressionUUID->"aea02439-4942-481a-96c5-6c152a961e2a"]
}], "SeeAlso",
 TaggingRules->{"AnnotationsDeleted" -> True},
 CellID->929782353,ExpressionUUID->"c0c83ee8-4bd8-4fc6-b92f-40cc28dc0848"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"89feedf4-0607-4d8c-8832-5c432a51e355"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"e9c90814-b9b5-4711-a5e9-e5dcdebd4a31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"fcdfd8bc-d9d5-453f-8255-91b3520e8c8e"],

Cell["Load the package:", "ExampleText",
 CellID->810745662,ExpressionUUID->"82a33835-3483-4737-ada3-e2947eb69864"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<FEMAddOns`\>\"", "]"}]], "Input",
 InitializationCell->True,
 CellLabel->"In[1]:=",
 CellID->49404476,ExpressionUUID->"e0876beb-d3c4-48f3-b435-91d276e8eef7"],

Cell["\<\
Create quadrilateral mesh of 10 by 5 elements from a 2 by 2 raster of points.\
\
\>", "ExampleText",
 CellID->66993912,ExpressionUUID->"466801eb-c225-4eab-891f-82819a526ba4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mesh", "=", 
  RowBox[{"StructuredMesh", "[", 
   RowBox[{"raster", ",", 
    RowBox[{"{", 
     RowBox[{"10", ",", "5"}], "}"}]}], "]"}]}]}], "Input",
 CellLabel->"In[2]:=",
 CellID->663765714,ExpressionUUID->"5222c629-d790-40a3-8dce-a990e986ae38"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "2.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"QuadElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "50", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[3]=",
 CellID->199721158,ExpressionUUID->"b193345d-51a1-471b-b3e2-a0e746d65c61"]
}, Open  ]],

Cell["\<\
Visualize the mesh and show the raster points in red and lines described by \
the raster in blue. Lists of numbers in gray represent position indices of \
points in raster array.\
\>", "ExampleText",
 CellID->116343895,ExpressionUUID->"64cb8764-3518-414c-a37a-af2a0c62b460"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"raster", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#2", ",", "14"}], "]"}], ",", "#1", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], ",", "raster", 
          ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->97592908,ExpressionUUID->"3f421197-0da8-412a-ab8b-8177e6e52e6f"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxl0zFMwkAUBuCLk8EVV42buuJa27jgKMydTNRRXNUVVxzVVWdmZ5xMdNaO
1YEomqCAUKBE3pX/N/e8pHnptff13XvXld3D8t6cMWZreknU4+JSxr3vxsi/
msWNgoxXxmz+jTFT2oxw4O/cLlVbpWfOv5dkIqZfL8bH+XqTfsXLPV1XPtV3
vpQf0YcHf3662ss16a+HtUZv9YP+jf1Am76dLnTo4z34yA8+PPhlu7+/defT
p2Htm/7jg4wufbduxmC/8N38InrwT/KSUZfOvh0///oAH/WDj/3CR37w4bl5
DlR9OvRPZ/nAv5N0Gz36C7YfffpZvQaqvwn9A2c/xthyh3367vrI35b2FBP6
m1JOb0g/mx+p+if08T78F+HiIf2zlhywEf01m9BY9XdM3703ZrkqQEr/yPY7
pZ/VK6W/aA/cRPV3ovsaqN84UP9dAB/36lwH6hwG8H8BqaavwA==
     "], 
     PolygonBox[{{1, 7, 8, 2}, {2, 8, 9, 3}, {3, 9, 10, 4}, {4, 10, 11, 5}, {
      5, 11, 12, 6}, {7, 13, 14, 8}, {8, 14, 15, 9}, {9, 15, 16, 10}, {10, 16,
       17, 11}, {11, 17, 18, 12}, {13, 19, 20, 14}, {14, 20, 21, 15}, {15, 21,
       22, 16}, {16, 22, 23, 17}, {17, 23, 24, 18}, {19, 25, 26, 20}, {20, 26,
       27, 21}, {21, 27, 28, 22}, {22, 28, 29, 23}, {23, 29, 30, 24}, {25, 31,
       32, 26}, {26, 32, 33, 27}, {27, 33, 34, 28}, {28, 34, 35, 29}, {29, 35,
       36, 30}, {31, 37, 38, 32}, {32, 38, 39, 33}, {33, 39, 40, 34}, {34, 40,
       41, 35}, {35, 41, 42, 36}, {37, 43, 44, 38}, {38, 44, 45, 39}, {39, 45,
       46, 40}, {40, 46, 47, 41}, {41, 47, 48, 42}, {43, 49, 50, 44}, {44, 50,
       51, 45}, {45, 51, 52, 46}, {46, 52, 53, 47}, {47, 53, 54, 48}, {49, 55,
       56, 50}, {50, 56, 57, 51}, {51, 57, 58, 52}, {52, 58, 59, 53}, {53, 59,
       60, 54}, {55, 61, 62, 56}, {56, 62, 63, 57}, {57, 63, 64, 58}, {58, 64,
       65, 59}, {59, 65, 66, 60}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Large], 
     PointBox[{{0, 0}, {2, 0}, {1, 1}, {2, 1}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{0, 0}, {2, 0}}, {{1, 1}, {2, 1}}}]}, 
    {GrayLevel[0.5], {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {0, 0}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 0}, {-1, -1}]}, {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {1, 1}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 1}, {-1, -1}]}}}}]], "Output",
 CellLabel->"Out[4]=",
 CellID->447486330,ExpressionUUID->"5adc4078-6cc3-4331-ae89-26aff2c1c7b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "61bc8c0a-4d63-45ac-94f9-d02461379eea"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->108490381,ExpressionUUID->"b3beeb91-e1da-43cc-bccb-2905213575ba"],

Cell[TextData[{
 "Create a ",
 ButtonBox["HexahedronElement ",
  BaseStyle->"Link",
  ButtonData->"paclet:FEMDocumentation/ref/HexahedronElement"],
 "mesh of a block."
}], "ExampleText",
 CellID->53724276,ExpressionUUID->"12da81bf-69ae-47cf-92b7-d820469bc80d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "3"}], ";", 
  RowBox[{"b", "=", "2"}], ";", 
  RowBox[{"c", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "b", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", "b", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "c"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", "0", ",", "c"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "b", ",", "c"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "}"}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\n", 
 RowBox[{"mesh", "=", 
  RowBox[{"StructuredMesh", "[", 
   RowBox[{"raster", ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "3", ",", "2"}], "}"}]}], "]"}]}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->7484758,ExpressionUUID->"a65ebcf4-0f8e-4ffe-8f91-bf8a03a87375"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "3.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "2.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"HexahedronElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "24", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[3]=",
 CellID->36363739,ExpressionUUID->"1c042fee-9885-401e-924a-7c9417f2e73b"]
}, Open  ]],

Cell["\<\
Visualize the mesh and show the raster points in red and lines described by \
the raster in blue. Lists of numbers in black represent position indices of \
points in raster array. Raster array is 1 level deeper for 3D mesh than for \
2D mesh.\
\>", "ExampleText",
 CellID->1556833664,ExpressionUUID->"e48457f2-ca79-4efb-909e-9d38abc8f99a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"raster", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "/@", "raster"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#2", ",", "10"}], "]"}], ",", "#1", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], ",", "raster", 
          ",", 
          RowBox[{"{", "3", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->290397496,ExpressionUUID->"0f57bb70-201d-46e8-8821-86c2828fd73e"],

Cell[BoxData[
 Graphics3DBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None, None], 
    GraphicsComplex3DBox[CompressedData["
1:eJyVkD0KAmEQQz/Wxmt4D8GcQdwLCNZeOY1guY1g6Q+sw2QmhQPbPPI9Ntmd
r8fLNMbYv7/N+Pd46Pny46f5c7eSy5wmH54vnh/FkzlNftF3MIVgeiF77qa3
cpp8ePp9lNPkw9Pvo5wmX3rB9ILphex5mn2U0+TD0++jnCYfnn4f5TT50gum
F0wvZM8k79dTTpMPT7+Pcpp8ePp9lNPkSy/5X+WlF7JnK+/XU06TD0+/j3Ka
fHj6fZTT5Esv+V/lpRdWzwuPLbWA
     "], 
     Polygon3DBox[{{1, 13, 16, 4}, {1, 2, 14, 13}, {4, 5, 2, 1}, {6, 18, 15, 
      3}, {2, 3, 15, 14}, {5, 6, 3, 2}, {4, 16, 19, 7}, {7, 8, 5, 4}, {9, 21, 
      18, 6}, {8, 9, 6, 5}, {7, 19, 22, 10}, {22, 23, 11, 10}, {10, 11, 8, 
      7}, {12, 24, 21, 9}, {23, 24, 12, 11}, {11, 12, 9, 8}, {13, 25, 28, 
      16}, {13, 14, 26, 25}, {18, 30, 27, 15}, {14, 15, 27, 26}, {16, 28, 31, 
      19}, {21, 33, 30, 18}, {19, 31, 34, 22}, {34, 35, 23, 22}, {24, 36, 33, 
      21}, {35, 36, 24, 23}, {25, 37, 40, 28}, {25, 26, 38, 37}, {30, 42, 39, 
      27}, {26, 27, 39, 38}, {28, 40, 43, 31}, {33, 45, 42, 30}, {31, 43, 46, 
      34}, {46, 47, 35, 34}, {36, 48, 45, 33}, {47, 48, 36, 35}, {37, 49, 52, 
      40}, {37, 38, 50, 49}, {49, 50, 53, 52}, {42, 54, 51, 39}, {38, 39, 51, 
      50}, {50, 51, 54, 53}, {40, 52, 55, 43}, {52, 53, 56, 55}, {45, 57, 54, 
      42}, {53, 54, 57, 56}, {43, 55, 58, 46}, {55, 56, 59, 58}, {58, 59, 47, 
      46}, {48, 60, 57, 45}, {56, 57, 60, 59}, {59, 60, 48, 47}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Large], 
     Point3DBox[{{0, 0, 0}, {3, 0, 0}, {0, 2, 0}, {3, 2, 0}, {0, 0, 1}, {3, 0,
       1}, {0, 2, 1}, {3, 2, 1}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     Line3DBox[{{{0, 0, 0}, {3, 0, 0}}, {{0, 2, 0}, {3, 2, 0}}}], 
     Line3DBox[{{{0, 0, 1}, {3, 0, 1}}, {{0, 2, 1}, {3, 2, 1}}}]}, 
    {GrayLevel[0], {{Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {0, 0, 0}, {-1, -1}], Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "2"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {3, 0, 0}, {-1, -1}]}, {Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"1", ",", "2", ",", "1"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {0, 2, 0}, {-1, -1}], Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"1", ",", "2", ",", "2"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {3, 2, 0}, {-1, -1}]}}, {{Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"2", ",", "1", ",", "1"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {0, 0, 1}, {-1, -1}], Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"2", ",", "1", ",", "2"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {3, 0, 1}, {-1, -1}]}, {Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"2", ",", "2", ",", "1"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {0, 2, 1}, {-1, -1}], Text3DBox[
        FormBox[
         StyleBox[
          RowBox[{"{", 
           RowBox[{"2", ",", "2", ",", "2"}], "}"}],
          StripOnInput->False,
          FontSize->10], StandardForm], {3, 2, 1}, {-1, -1}]}}}}},
  Boxed->False]], "Output",
 CellLabel->"Out[4]=",
 CellID->204787170,ExpressionUUID->"581912f0-bb3c-4a94-85e7-7e64d2c79540"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"a1cfa534-1e3d-4052-94f6-d7adf1f5f211"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "39137231-9ce4-45c6-be84-1f1f8d1b5dcf"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"0c2fd6ff-6805-4e88-9123-2dddb2f12adf"],

Cell["\<\
Create a mesh of a corner of 5 by 10 elements from a 3 by 2 raster of points.\
\
\>", "ExampleText",
 CellID->129969071,ExpressionUUID->"5daef3e0-bcc3-46e9-ba77-1672b192bb77"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "8"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "8"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"mesh", "=", 
  RowBox[{"StructuredMesh", "[", 
   RowBox[{"raster", ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "10"}], "}"}]}], "]"}]}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->1854949427,ExpressionUUID->"a12f42d8-3da6-4796-a311-51413297d7e4"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "8.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "8.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"QuadElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "50", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[2]=",
 CellID->489292833,ExpressionUUID->"ba8118d5-fa46-496a-8a5c-90b00fb0d855"]
}, Open  ]],

Cell["\<\
Visualize the mesh, raster points in red and the connecting lines in blue.\
\>", "ExampleText",
 CellID->504683475,ExpressionUUID->"a095232c-b03f-4f71-b440-bdf9298782af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->1406407811,ExpressionUUID->"6b41b899-4c1c-4599-a4fc-783b2ef4e694"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxdkztIA0EQhk+jhETUO+40Bo2cnbWxlR1stD1rK0FbrYOttW20tTalBCtJ
rW1SSux8oIiGYJPo7t4/MjNwLN/8t7Pz2F07ON47nAyCYPvvs6u3hAJhCTUv
rD0b8KXjH+bNurUCSb1EMl5Io7G1ecVFxWMj+YNZ5hXSkbNF9oNvVs9es/a7
Abcdj5hnelcnW+UiSX2O2ZVTj+kls0rE/NhIWjv9stInFH8aMPICP9xbW2I/
GPvAb3lc8FN+rtQjZuTdtWX1Yua7wfr+eWdW6QXFX9wX3Uc/12X2g106jW8D
PnU8xf/f5v2UesLs70eVOi6/BWZXVhYqfVrxwICRF9ivNeWvUcnNe2jAmD94
t28rikjqFWbf5xW6tlW0Ksw+n0jpRcVDA5ZzB6fqXqf5e8P7StV7SvM+xiT1
qoqHOP/+DbWvqeLqc3Vev+kgZiM=
     "], 
     PolygonBox[{{1, 12, 13, 2}, {2, 13, 14, 3}, {3, 14, 15, 4}, {4, 15, 16, 
      5}, {5, 16, 17, 6}, {6, 17, 18, 7}, {7, 18, 19, 8}, {8, 19, 20, 9}, {9, 
      20, 21, 10}, {10, 21, 22, 11}, {12, 23, 24, 13}, {13, 24, 25, 14}, {14, 
      25, 26, 15}, {15, 26, 27, 16}, {16, 27, 28, 17}, {17, 28, 29, 18}, {18, 
      29, 30, 19}, {19, 30, 31, 20}, {20, 31, 32, 21}, {21, 32, 33, 22}, {23, 
      34, 35, 24}, {24, 35, 36, 25}, {25, 36, 37, 26}, {26, 37, 38, 27}, {27, 
      38, 39, 28}, {28, 39, 40, 29}, {29, 40, 41, 30}, {30, 41, 42, 31}, {31, 
      42, 43, 32}, {32, 43, 44, 33}, {34, 45, 46, 35}, {35, 46, 47, 36}, {36, 
      47, 48, 37}, {37, 48, 49, 38}, {38, 49, 50, 39}, {39, 50, 51, 40}, {40, 
      51, 52, 41}, {41, 52, 53, 42}, {42, 53, 54, 43}, {43, 54, 55, 44}, {45, 
      56, 57, 46}, {46, 57, 58, 47}, {47, 58, 59, 48}, {48, 59, 60, 49}, {49, 
      60, 61, 50}, {50, 61, 62, 51}, {51, 62, 63, 52}, {52, 63, 64, 53}, {53, 
      64, 65, 54}, {54, 65, 66, 55}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Large], 
     PointBox[{{5, 0}, {8, 0}, {5, 4}, {8, 8}, {0, 4}, {0, 8}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{5, 0}, {8, 0}}, {{5, 4}, {8, 8}}, {{0, 4}, {0, 
      8}}}]}}}]], "Output",
 CellLabel->"Out[3]=",
 CellID->87266120,ExpressionUUID->"715e389f-8b80-4a21-9886-edd763e8a3be"]
}, Open  ]],

Cell["\<\
Alternative structure of raster, describing the same shape, is to have 2 \
lists (representing a line) with 3 points each.\
\>", "ExampleText",
 CellID->66673112,ExpressionUUID->"35c989b0-0e35-449f-9dad-1aebfdad49f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rasterAlt", "=", 
  RowBox[{"Reverse", "@", 
   RowBox[{"Transpose", "[", "raster", "]"}]}]}]], "Input",
 CellLabel->"In[4]:=",
 CellID->143354820,ExpressionUUID->"c6337fec-e4d8-4d08-b9ba-1dc874137090"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "8"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[4]=",
 CellID->489589857,ExpressionUUID->"552b5a21-b395-47b8-b44f-268180036010"]
}, Open  ]],

Cell["\<\
Create and visualise the same mesh as above. Note the switched number of \
elements as the second argument of StructuredMesh.\
\>", "ExampleText",
 CellID->11367452,ExpressionUUID->"afc87aa9-f2a2-46ce-bafe-19eb607d869f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"meshAlt", "=", 
    RowBox[{"StructuredMesh", "[", 
     RowBox[{"rasterAlt", ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "6"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"meshAlt", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "rasterAlt"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "rasterAlt", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellLabel->"In[5]:=",
 CellID->337732940,ExpressionUUID->"f3a1eb48-6122-4629-b582-58d63eadeb3b"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxdlEtOw0AMhicUGhWBmoQ2DQiqcAMo7O0LsEHAAZCK2LGEo4RyAzgKFSfg
sWaBUFWgYgGBediV/UuRZY3jz78zyvbpxeFwwRhz8P/Y6FWiEeqrfFPlGyov
VJ6rvKPyEqtrq28g3tWl1QyId3Rs9QnE29mzmgLxktRqAsR7fLJ6A+L5/q9A
vJHLWyh5MRLvxPGWkHj7jtdA4mWOFyHxnh3vh3kj4acM768xz5+nzItcTJj3
MLZaYd6NmDfH8zOrJhJPzkf+1pW/nvLXVf5oPvJH8+X44vytMk/ur1SxH/pv
Me/u1oruCcWCo5wnD/UZ80zYTyV8lfhbW/WYN3R7yZnn1jjuMGcQfBKvCt+B
eL5fm3kDsZcS3XGdMs/3T5i36+rbzLsP35F4fr5lxYuVv5byFyt/TeVvUflr
KH+R4tUgefN76s9nIHlfIHkfIHlTkLwJSN4784zQ/D8j74sx8r6QClXfVfWZ
qk/wD0NePNE=
     "], 
     PolygonBox[{{1, 8, 9, 2}, {2, 9, 10, 3}, {3, 10, 11, 4}, {4, 11, 12, 
      5}, {5, 12, 13, 6}, {6, 13, 14, 7}, {8, 15, 16, 9}, {9, 16, 17, 10}, {
      10, 17, 18, 11}, {11, 18, 19, 12}, {12, 19, 20, 13}, {13, 20, 21, 14}, {
      15, 22, 23, 16}, {16, 23, 24, 17}, {17, 24, 25, 18}, {18, 25, 26, 19}, {
      19, 26, 27, 20}, {20, 27, 28, 21}, {22, 29, 30, 23}, {23, 30, 31, 24}, {
      24, 31, 32, 25}, {25, 32, 33, 26}, {26, 33, 34, 27}, {27, 34, 35, 28}, {
      29, 36, 37, 30}, {30, 37, 38, 31}, {31, 38, 39, 32}, {32, 39, 40, 33}, {
      33, 40, 41, 34}, {34, 41, 42, 35}, {36, 43, 44, 37}, {37, 44, 45, 38}, {
      38, 45, 46, 39}, {39, 46, 47, 40}, {40, 47, 48, 41}, {41, 48, 49, 42}, {
      43, 50, 51, 44}, {44, 51, 52, 45}, {45, 52, 53, 46}, {46, 53, 54, 47}, {
      47, 54, 55, 48}, {48, 55, 56, 49}, {50, 57, 58, 51}, {51, 58, 59, 52}, {
      52, 59, 60, 53}, {53, 60, 61, 54}, {54, 61, 62, 55}, {55, 62, 63, 56}, {
      57, 64, 65, 58}, {58, 65, 66, 59}, {59, 66, 67, 60}, {60, 67, 68, 61}, {
      61, 68, 69, 62}, {62, 69, 70, 63}, {64, 71, 72, 65}, {65, 72, 73, 66}, {
      66, 73, 74, 67}, {67, 74, 75, 68}, {68, 75, 76, 69}, {69, 76, 77, 
      70}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Large], 
     PointBox[{{8, 0}, {8, 8}, {0, 8}, {5, 0}, {5, 4}, {0, 4}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{8, 0}, {8, 8}, {0, 8}}, {{5, 0}, {5, 4}, {0, 
      4}}}]}}}]], "Output",
 CellLabel->"Out[6]=",
 CellID->47874473,ExpressionUUID->"cfb72127-68df-4d52-a14a-a4cc5547d18c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1df918aa-3cdf-466b-8c2a-bb5f236d9da1"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->575486415,ExpressionUUID->"a5c3b5dd-56b1-4c73-8ec9-fa78dbec71c7"],

Cell["Create mesh of an irregular set of 4 by 9 raster points.", "ExampleText",
 CellID->1995398157,ExpressionUUID->"5d367ceb-bdbc-4409-a4dd-2027f3bf184c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"Map", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{
          RowBox[{"1", "/", "2"}], "+", 
          RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"4", "+", 
          RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"mesh", "=", 
  RowBox[{"StructuredMesh", "[", 
   RowBox[{"raster", ",", 
    RowBox[{"{", 
     RowBox[{"20", ",", "10"}], "}"}]}], "]"}]}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->77902390,ExpressionUUID->"8e6e8d0d-ffd1-4767-8212-b3913da37573"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "6.283185307179586`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.`"}], ",", "5.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"QuadElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "200", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[3]=",
 CellID->758709028,ExpressionUUID->"6a0ae6c8-1cd9-4c75-aa24-62acc0db8f6b"]
}, Open  ]],

Cell["\<\
Visualize the mesh, raster points in red and the connecting lines in blue.\
\>", "ExampleText",
 CellID->1233599156,ExpressionUUID->"5fe943ea-febf-490e-b3a2-0d3c7ca18f19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->47542465,ExpressionUUID->"1bb9a274-f3e4-460f-8795-371e18ef4c72"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJx11n1MVXUYB/DL5YAXELyCgQdLZQ3DMkxRm4Gdn6JmUSzR3CqE0kBQp0w2
pmnIYkJ/pEioCAKKCpWpRTZfmnZNLUTRCizfSxEv0kW5vMa7xTnP99nO2Tob
3H3GPef349nz+z4naMnqmASzyWRq+O9n8PP/rilhg9dZRe9a9uXqwesWu6hg
8Gpku6i/29nT1Pt72bvU77sIOClx8HJna+t5sbXLKu44i9ImjrqieC59PH9k
YI0C7+/b6ag4cpM9JqrgTFl5HbspIDFnTWoDO/lQdVrJCid7SZPiGRnZyY59
7khxQ2Afuyx/+ndZtS68fk6c/dfA6CHstcF5Dw+fH8qe1DlmU2nQcHI97Rf7
qVeuTqwefd9uZ2v7d7BP1E+OVYSTLW2pHpvi2c4+d23jiKysLnbm02GWInM/
++vt1y+nept5/aOLEsN/mWphnwpo+/zZOB+29v/7ivnJjkmVIY+UlKqE4+kZ
DxR4xo7Jm6LeeMjeVPE4ZKh3C1urbxt725tnXq0u6GQvXiMfHjO2hz1uW4pv
ank/+1pLUm7yNDOv/07lvjnl1y3sW0V/dtdtGMYOPTH06jCrH+2/XTmu1qtJ
gc+o9XGyxyv2D5uaWtlby16/G7Oggx3QcajlW7mLrT2/l/3KRytOrnQfYAcd
bOhdFm3m9dd/U9K8e7oHe/mNAy0rfK3s/Ngsx5BP/MTI52cv7A3qpnPgVGC1
/RNb2ZfU89XO1s7DP+xC9fx0K/rn9bGXqc8bYCerNvP62nn1EPrvWw37G0H1
HlCOUX1h1BcOofrCqC/sT/WFUV94LtUXRn1h1BdGfWHU91xMVXZVvotYTf0L
R1D/wuhfGP0L51H/wuhfGP0Lo39h9C98k/oX1vevJCy6fJDE77p8kMReXT5I
4rguHyShzwdJnNXlgyT0+SAJfT5IQp8PktDngySQD31bUhK2l7jTfmsUeC/l
Lzya8hdG/sLIXxj5CyN/YeQvjPyFkb8w8lfrZw+eIzDmm961bMw3GPMNxnyD
Md9gzDcY802/npdhf1Yx9WJA5PtlXsJHq68NfvDZxZR+04/s98wz/A7n5ipw
Rm1hR1LCT+yl1wrmdL5bx97td7rj5MkW9rDwI+fTo3rYubu60w/Gu/D6M1fZ
eyvS3djNonbtsWIPdon6PG86fz603zob/PGEBM/8whtsbf+/sV+6XxmbU3yK
vTB0yr2yiD8UeH206Wpb6yN246ywuAtLu9nZxW9/YAt24fXltMTc/h0S+0B0
6g/hFgs74pkMx7p1XuJoZvxW/0VWQfPNBmvz9x77UPzOGRcu3Wb7/Tyw74Up
V9jh875PXz5QqcCvjbq077TNwZ5b07GgzdbFjpt5obSqz8Trp7mNzx7X5sr+
tCp7ZWajO3v/Zvv8O395UF4MF9r7QJMNpvPEpvcddpl2Htmz1f0eU/jv6vMb
2cGNPV92x3ex/bOjXrxYb+L133oy9PaEPFd2XoU1c8tMd3bN3LYQZ7NF1ASF
bdxw3Zf62WmD1XYPc7C1eWdnq8el4K5Nf//pCFh7V32gwJLqLrZ2Xk28vna+
XNnavHQz7A95N0LQfLPBf1N94aeovvAeqi8cQ/WFy6m+MOoLo74w6gujvjDq
22xzX1UX+4RYRf0Ll1L/wl9Q/8I+1L9wJPUvHEX9C6N/YfQvjP6FN1P/wuhf
LY/9Md9scBrlA3yL8oG/T/kAL6Z8gNMpH2DkA4x8gAMpH+CvKB/glykfPONu
xM67EyBcKX/hGspf2Oqq5S+8g/IXTqL8hUspf/l+yl8Y+Qsjf2En5S+8h/JX
mx+yYb7JhvkmG+abbJhvsmG+yYb5Jhvmm2yYb7JhvsmG+Yb9WcW/051T2Q==

     "], PolygonBox[CompressedData["
1:eJwBMQPO/CFib1JiAgAAAMgAAAAEAAAAAQwNAgINDgMDDg8EBA8QBQUQEQYG
ERIHBxITCAgTFAkJFBUKChUWCwwXGA0NGBkODhkaDw8aGxAQGxwRERwdEhId
HhMTHh8UFB8gFRUgIRYXIiMYGCMkGRkkJRoaJSYbGyYnHBwnKB0dKCkeHikq
Hx8qKyAgKywhIi0uIyMuLyQkLzAlJTAxJiYxMicnMjMoKDM0KSk0NSoqNTYr
KzY3LC04OS4uOTovLzo7MDA7PDExPD0yMj0+MzM+PzQ0P0A1NUBBNjZBQjc4
Q0Q5OURFOjpFRjs7Rkc8PEdIPT1IST4+SUo/P0pLQEBLTEFBTE1CQ05PRERP
UEVFUFFGRlFSR0dSU0hIU1RJSVRVSkpVVktLVldMTFdYTU5ZWk9PWltQUFtc
UVFcXVJSXV5TU15fVFRfYFVVYGFWVmFiV1diY1hZZGVaWmVmW1tmZ1xcZ2hd
XWhpXl5pal9famtgYGtsYWFsbWJibW5jZG9wZWVwcWZmcXJnZ3JzaGhzdGlp
dHVqanV2a2t2d2xsd3htbXh5bm96e3Bwe3xxcXx9cnJ9fnNzfn90dH+AdXWA
gXZ2gYJ3d4KDeHiDhHl6hYZ7e4aHfHyHiH19iIl+fomKf3+Ki4CAi4yBgYyN
goKNjoODjo+EhZCRhoaRkoeHkpOIiJOUiYmUlYqKlZaLi5aXjIyXmI2NmJmO
jpmaj5CbnJGRnJ2Skp2ek5Oen5SUn6CVlaChlpahopeXoqOYmKOkmZmkpZqb
pqecnKeonZ2oqZ6eqaqfn6qroKCrrKGhrK2ioq2uo6Our6Skr7ClprGyp6ey
s6ios7SpqbS1qqq1tqurtresrLe4ra24ua6uubqvr7q7sLG8vbKyvb6zs76/
tLS/wLW1wMG2tsHCt7fCw7i4w8S5ucTFurrFxru8x8i9vcjJvr7Jyr+/ysvA
wMvMwcHMzcLCzc7Dw87PxMTP0MXF0NHGx9LTyMjT1MnJ1NXKytXWy8vW18zM
19jNzdjZzs7Z2s/P2tvQ0Nvc0dLd3tPT3t/U1N/g1dXg4dbW4eLX1+Lj2Njj
5NnZ5OXa2uXm29vm59wBZW0E
      "]]]}, {
    {RGBColor[1, 0, 0], PointSize[Large], 
     PointBox[NCache[{{0, 0}, {Rational[1, 4] Pi, 2^Rational[-1, 2]}, {
        Rational[1, 2] Pi, 1}, {Rational[3, 4] Pi, 2^Rational[-1, 2]}, {
        Pi, 0}, {Rational[5, 4] Pi, -2^Rational[-1, 2]}, {
        Rational[3, 2] Pi, -1}, {Rational[7, 4] Pi, -2^Rational[-1, 2]}, {
        2 Pi, 0}, {0, Rational[1, 2]}, {
        Rational[1, 4] Pi, Rational[1, 2] + 2^Rational[-1, 2]}, {
        Rational[1, 2] Pi, Rational[3, 2]}, {
        Rational[3, 4] Pi, Rational[1, 2] + 2^Rational[-1, 2]}, {
        Pi, Rational[1, 2]}, {
        Rational[5, 4] Pi, Rational[1, 2] - 2^Rational[-1, 2]}, {
        Rational[3, 2] Pi, Rational[-1, 2]}, {
        Rational[7, 4] Pi, Rational[1, 2] - 2^Rational[-1, 2]}, {
        2 Pi, Rational[1, 2]}, {0, 2}, {Rational[1, 4] Pi, 2}, {
        Rational[1, 2] Pi, 2}, {Rational[3, 4] Pi, 2}, {Pi, 2}, {
        Rational[5, 4] Pi, 2}, {Rational[3, 2] Pi, 2}, {
        Rational[7, 4] Pi, 2}, {2 Pi, 2}, {0, 4}, {
        Rational[1, 4] Pi, 4 + 2^Rational[-1, 2]}, {Rational[1, 2] Pi, 5}, {
        Rational[3, 4] Pi, 4 + 2^Rational[-1, 2]}, {Pi, 4}, {
        Rational[5, 4] Pi, 4 - 2^Rational[-1, 2]}, {Rational[3, 2] Pi, 3}, {
        Rational[7, 4] Pi, 4 - 2^Rational[-1, 2]}, {2 Pi, 4}}, {{0, 0}, {
        0.7853981633974483, 0.7071067811865475}, {1.5707963267948966`, 1}, {
        2.356194490192345, 0.7071067811865475}, {3.141592653589793, 0}, {
        3.9269908169872414`, -0.7071067811865475}, {4.71238898038469, -1}, {
        5.497787143782138, -0.7071067811865475}, {6.283185307179586, 0}, {
        0, 0.5}, {0.7853981633974483, 1.2071067811865475`}, {
        1.5707963267948966`, 1.5}, {2.356194490192345, 1.2071067811865475`}, {
        3.141592653589793, 0.5}, {
        3.9269908169872414`, -0.20710678118654746`}, {
        4.71238898038469, -0.5}, {5.497787143782138, -0.20710678118654746`}, {
        6.283185307179586, 0.5}, {0, 2}, {0.7853981633974483, 2}, {
        1.5707963267948966`, 2}, {2.356194490192345, 2}, {
        3.141592653589793, 2}, {3.9269908169872414`, 2}, {
        4.71238898038469, 2}, {5.497787143782138, 2}, {
        6.283185307179586, 2}, {0, 4}, {0.7853981633974483, 
        4.707106781186548}, {1.5707963267948966`, 5}, {2.356194490192345, 
        4.707106781186548}, {3.141592653589793, 4}, {3.9269908169872414`, 
        3.2928932188134525`}, {4.71238898038469, 3}, {5.497787143782138, 
        3.2928932188134525`}, {6.283185307179586, 4}}]]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[NCache[{{{0, 0}, {Rational[1, 4] Pi, 2^Rational[-1, 2]}, {
         Rational[1, 2] Pi, 1}, {Rational[3, 4] Pi, 2^Rational[-1, 2]}, {
         Pi, 0}, {Rational[5, 4] Pi, -2^Rational[-1, 2]}, {
         Rational[3, 2] Pi, -1}, {Rational[7, 4] Pi, -2^Rational[-1, 2]}, {
         2 Pi, 0}}, {{0, Rational[1, 2]}, {
         Rational[1, 4] Pi, Rational[1, 2] + 2^Rational[-1, 2]}, {
         Rational[1, 2] Pi, Rational[3, 2]}, {
         Rational[3, 4] Pi, Rational[1, 2] + 2^Rational[-1, 2]}, {
         Pi, Rational[1, 2]}, {
         Rational[5, 4] Pi, Rational[1, 2] - 2^Rational[-1, 2]}, {
         Rational[3, 2] Pi, Rational[-1, 2]}, {
         Rational[7, 4] Pi, Rational[1, 2] - 2^Rational[-1, 2]}, {
         2 Pi, Rational[1, 2]}}, {{0, 2}, {Rational[1, 4] Pi, 2}, {
         Rational[1, 2] Pi, 2}, {Rational[3, 4] Pi, 2}, {Pi, 2}, {
         Rational[5, 4] Pi, 2}, {Rational[3, 2] Pi, 2}, {
         Rational[7, 4] Pi, 2}, {2 Pi, 2}}, {{0, 4}, {
         Rational[1, 4] Pi, 4 + 2^Rational[-1, 2]}, {Rational[1, 2] Pi, 5}, {
         Rational[3, 4] Pi, 4 + 2^Rational[-1, 2]}, {Pi, 4}, {
         Rational[5, 4] Pi, 4 - 2^Rational[-1, 2]}, {Rational[3, 2] Pi, 3}, {
         Rational[7, 4] Pi, 4 - 2^Rational[-1, 2]}, {2 Pi, 4}}}, {{{0, 0}, {
         0.7853981633974483, 0.7071067811865475}, {1.5707963267948966`, 1}, {
         2.356194490192345, 0.7071067811865475}, {3.141592653589793, 0}, {
         3.9269908169872414`, -0.7071067811865475}, {4.71238898038469, -1}, {
         5.497787143782138, -0.7071067811865475}, {6.283185307179586, 0}}, {{
         0, 0.5}, {0.7853981633974483, 1.2071067811865475`}, {
         1.5707963267948966`, 1.5}, {2.356194490192345, 
         1.2071067811865475`}, {3.141592653589793, 0.5}, {
         3.9269908169872414`, -0.20710678118654746`}, {
         4.71238898038469, -0.5}, {
         5.497787143782138, -0.20710678118654746`}, {6.283185307179586, 
         0.5}}, {{0, 2}, {0.7853981633974483, 2}, {1.5707963267948966`, 2}, {
         2.356194490192345, 2}, {3.141592653589793, 2}, {
         3.9269908169872414`, 2}, {4.71238898038469, 2}, {
         5.497787143782138, 2}, {6.283185307179586, 2}}, {{0, 4}, {
         0.7853981633974483, 4.707106781186548}, {1.5707963267948966`, 5}, {
         2.356194490192345, 4.707106781186548}, {3.141592653589793, 4}, {
         3.9269908169872414`, 3.2928932188134525`}, {4.71238898038469, 3}, {
         5.497787143782138, 3.2928932188134525`}, {
         6.283185307179586, 4}}}]]}}}]], "Output",
 CellLabel->"Out[4]=",
 CellID->788544873,ExpressionUUID->"5254ec6f-abbd-4697-bd4e-0853226d4a2c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "746c1d13-f96f-4186-8e5d-8b9dfa1ee157"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->154001524,ExpressionUUID->"f69811fe-d4fc-4b3f-8f15-9816515404af"],

Cell["Create a quadrilateral mesh from a raster of an annulus.", "ExampleText",
 CellID->648470276,ExpressionUUID->"62225155-82af-49a6-85c0-2601c0e3256e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"Map", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"fi", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "360"}]}]}], "}"}]}], "]"}], "&"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "[", "fi", "]"}], ",", 
         RowBox[{"Sin", "[", "fi", "]"}]}], "}"}], ",", 
       RowBox[{"0.8", "*", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Cos", "[", "fi", "]"}], ",", 
          RowBox[{"Sin", "[", "fi", "]"}]}], "}"}]}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"90", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->579495518,ExpressionUUID->"827ef958-aaf3-4ea6-ae64-1a23226e41d0"],

Cell[BoxData[
 GraphicsBox[
  {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["

1:eJxdWmd8jWcfVmLGrlHkLUoRIw1prZdempaYNUvEKFLSmLFCUkKJ2qutKNIo
pbWJPaLXm7SIGknIEhIn6+TsqNKazZv+nJMPVz7g/uDJ87uf/33Nu/mkWcMm
ly9XrpxH6R///v3q5wFc/zr75grr0LOOsvXsntUyfgyxl609x25MeNzGVrbO
C693xC/XUrbevu3fH3PZ+q+SkNnutmK0GTp1xsa7sdgesuWk514HAtaG/3S8
ZSyQe+5vv/F2rL205n7ajGPIH5rTfUpDG8JK3uv4cMZRrEooHxGZbEH23JE/
di13BO19WsfvXm1GL1No/SVfH0L4t977+xwrRqOY9VHTk+Nx5btRjxKnOTC1
SufM1xrHo973ERjQ2o4Lc3IabQ38Hybt2rvmRp4Vb5yvccY/gDi693ra4BgL
zm8Y3325/SJe7P+z2a3RZowNPHrx8NI4LC0X3unFwGI89vc9dCf6d2RsPN59
QXUHrL3KNxi57iq8mlp9H16zIbdNwpJbXyTiqyMtBsxYa0Vm7WXmj6ddQXbP
scNN/S24+eSD4dcCLuPdG9+OCaxmxm+G1y769b+EpV+Mz/85wQHPDZ2yq+1J
Qf1Ju4MPrrRjcpYpakpxMvb3NRYfGWjDrlY7hyR0T8b777QNPV7HinOFB+r1
qJ6EW/VnvjiVboZ3RMNVf+6+gaAXscvO7TBhX4PI5we6XYdHh2G+f9Vx4LH7
mnn78tNw4PzDZu45NvTN7FGyrEIauvX9pqTpASu27ylePa5FKq6k+eS8G2qB
LWR3va4f3sbIwNS4fr5moOcnO+sG3kLBg3k7xtc0YXPVKm3ty1KwZUnJkV//
a0dy40rNn1bOgs+2w8XBtW1YWqub+9SXmUg5Psa7dqEF3m7TH2c9zMCs61Vn
nz5nhuFJzP0BpnTUMJ6JHbvBhE32lKtx2Wk4WDL5YfnAIvTKczvZ4XYqqrSe
MbjJB6XzMKTlvFvuOVh/GwMTm1oRN7Fmp1aZ91B3ad1+8/8xo2TOk+KwPXcR
1b6w91vZJvhG5h2+EZKFJnfO+CZdKMKKLdenNe95Bz+sWINF241I/Om05/yq
mei9/0bCey2saJt96P1Gjw1YExY9YlgNC4amNps8z8+ApH7TjDP/NuGPKM+G
O33uo17j7gvX5pa+34o6n32SmY3RlirV9l0zYsPcp8fcF99DzPmMHb+dKkT2
xNyX8c3vYt+jrTsW5JsxPmC+W4ukPGyt6hg1PssEy3E/t1U18/DVmx/V651S
hPnujd3sg3IR6rM9uV2iEa99ZqswbL0Bk/s+WFeXhWgUtrjyzG33MWJcn35P
TxXAu+1blbu+kYNuQ5J2z1pugkeDHsPObC6A26B97aatKkKlvOmBDZiPm/2+
PDllvRF/HP5+3nxbHrb1Ceg56etC3A27uSK1UR4CP/S5PG5rAS73Lony8cuF
V6/qg0dH5+NYHe99X88zoNugvcZUtyLUnmvw3tPdiAkjan38ZiMjKnb8q6Lb
qEKsHBN2KqhDIZ453O8Gzi3A4Un5HrEfFODBoebHft2Yj9TgQZHPPslH4dQu
K1ocysPzkDPWD6fmIavNoIDlibnIdM+LigwuRMIvPvsyrhQhuv7KzA82FKD/
69+1GpFa+vuatm9ccjwfKUEv9iQbCtHSM2VMXEYeRsdNaDHIXgBzp9Dvw17k
wlD70q6rT/NxuEeT+52b5+LzyZ7N+lTKR7erF2OXnCj9/4GPhk/qYsbqIf/9
KMGch9ufGjq2e8+EzIyz6W7N8pA25nqtR52K0ObTzsF+I3ORMeqsPc7biIXG
E89XrzPgzvA911Z4FWLj3Uke21bcx93Bm/Z/3L4AdV/WiTQV5GKvY9+NsJUW
eAw2VTjUIRcnIgIapiww4+1dvyyfFWpAfM3qE9t8bsI4o2flKRH3kRRz8cAS
/yLMXpNeyV4rB9lesx6l9zUi0mt5pXm77sH6S7P3vboVOnHUgAMD/U3hp614
hc85GIvgmSe2W/AKn7NRo1P4I2uEGa/w+R7Ycm14y0ATXuFzFkIaRpcb51eE
V/h8B29VO/zVlnal56DiL1m9a97D711HXrAm2PCPb8DE544svJnsOT0o2gqf
pX8VHUu6gzlBLz3y51sQfPHrmVOOZeLyP8k3xg82I+aZ1+MmmzPQJGpPRFYb
E1K7XPsiZXY6ZnVY+M7I8kX4MqrQsf5pBvyvbQ1bfNCORZu6TqjhlgFHrv3n
g1/YsGDN2pR1NdMR+eTD9DsDrJgdmeNbvVEaGtfa7lbFw4LpER1Pri3Fpdi3
H3TqbDMhaGHk2+5et+HXo8/Ez+KKMMT8Tpfiy7dRMuKj12vOciD00cjfpr64
hcgf3zgU3MWO6JLFQ40db6HqQ9tHl0qsiK+2N2diUAo29IrPbpZoQVH969Oy
o5NRb+OW0EWbzGjsa/wjdk8StmUH18r0N+E/5woeDvj7Jt4+H7Zzf/VipHYe
OPPd8zfQNWbq0DM3S3nr5Amzx+LrGLBsTIVLm2zw7dRkcsVe1zB+ysBTt4ZZ
8ezoMoO9/O+Y3b9nkKGeBbEdLGPSLyWWfmevRo50E1bPdY9o3P0yGnp8uW7t
8mJ8d9ozbcnIS2j3sXt+Ri8Hfn7q175wzm94f+mWbi3/seF0jynL+2/8FcOO
N90UcsGKS0sis44eTMDkgv3GuIUWpCbs7lg/MR5hDd7tWbWzGdNG9dgxIeE8
Lgc9+bbp7WLkLXpxceyxczjQvaBqz/UO+O+OM/jHnMX6GskRAX52JF1ZVOGT
dWcw23DhzwWv2dDb3qPV0PDTGHHi58+3XLAgru7LvoM+P4WuX32TfXy+Ga3v
/X3VP2cXgipyYfnnxWj1w3vhn7beBe+KbSJWnnCg5Wdz204J+QFP3DYvrz7d
jt5DJp26M2cn4t2erdrcsnS/MrPrF7nFYI1b4IYG2RZgwujQR1HRGO52/Zsd
W8qeT3k+5fmU51OeT3k+Xc937g9lfyj7Q9kfyv5Q9oeu/XF+X8r3pXxfyvel
fF/K96Xr+zrnkzKflPmkzCdlPinzSdd8Os8X5XxRzhflfFHOF+V80XW+nPhA
wQcKPlDwgYIPFHygCx+c+EbBNwq+UfCNgm8UfKML35z4TMFnCj5T8JmCzxR8
pgufnfxC4RcKv1D4hcIvFH6hi1+c/EjhRwo/UviRwo8UfqSLH538TuF3Cr9T
+J3C7xR+Zxm/v9InFH1C0ScUfULRJxR9Qpc+ceorir6i6CuKvqLoK4q+oktf
OfUhRR9S9CFFH1L0IUUf0qUPnfqWom8p+paibyn6lqJv6dK3Tn1O0ecUfU7R
5xR9TtHndOlzp7+g+AuKv6D4C4q/oPgLuvyF0x9R/BHFH1H8EcUfUfwRXf7I
6e8o/o7i7yj+juLvKP6OLn/n9KcUf0rxpxR/SvGnFH9Klz91+muKv6b4a4q/
pvhrir+my1878wFKPkDJByj5ACUfoOQDdOUDznyDkm+UrZ35RtnamW+UrZ35
RtnamW+UreX9Ke9PeX/K+1Pen/L+lP2n7D9l/yn7T9l/yv5T5ocyP5T5ocwP
ZX4o80OZf8r8U+afMv+U+afMP+X8Us4v5fxSzi/l/FLOLwV/KPhDwR8K/lDw
h4I/FPyk4CcFPyn4ScFPCn5S8J+C/xT8p+A/Bf8p+E/hLwp/UfiLwl8U/qLw
F4V/KfxL4V8K/1L4l8K/FP1A0Q8U/UDRDxT9QNEPFP1D0T8U/UPRPxT9Q9E/
FP1G0W8U/UbRbxT9RtFvFP1J0Z8U/UnRnxT9SdGfFP1M0c8U/UzRzxT9TNHP
FP1P0f8U/U/R/xT9T9H/FP9C8S8U/0LxLxT/QvEvFP9F8V8U/0XxXxT/RfFf
FP9I8Y8U/0jxjxT/SPGPFP9L8b8U/0vxvxT/S/G/FP9O8e8U/07x7xT/TvHv
lPyBkj9Q8gdK/kDJHyj5AyU/oeQnlPyEkp9Q8hNKfkLJfyj5DyX/oeQ/lPyH
kv9Q8itKfkXJryj5FSW/ouRXlPyNkr9R8jdK/kbJ3yj5GyU/pOSHlPyQkh9S
8kNKfkjJPyn5JyX/pOSflPyTkn9S8ltKfkvJbyn5LSW/peS3LnyG4DMEnyH4
DMFnCD678mdKfk7Jzyn5OSU/p+TnlPyckv9T8n9K/k/J/yn5PyX/p/QXlP6C
0l9Q+gtKf0HpLyj9C6V/ofQvlP6F0r9Q+hdKf0Tpjyj9EaU/ovRHlP6I0n9R
+i9K/0Xpvyj9F6X/ovR3lP6O0t9R+jtKf0fp7yj9I6V/pPSPlP6R0j9S+kdK
f0rpTyn9KaU/pfSnlP6U0v9S+l9K/0vpfyn9L6X/pfTXlP6a0l9T+mtKf03p
ryn9O6V/p/TvlP6d0r9T+nfK/QHK/QHK/QHK/QHK/QHK/QHK/QfK/QfK/QfK
/QfK/QfK/Qf+H8YS800=
    "], PolygonBox[CompressedData["
1:eJw12WfYiHUfx+H7vu29NwllpEiIKBlFZVSoKFEiRVkVDRRKqGhQoUEyCg1U
KCPRQCFFg7KjQURD8/977vN58T2uz4vrON9cr67jV6XngI79szIyMlZnZmTk
TM/0yMiTljcty6LzpeWw6PwZ2e/n1AXScll0wbTcrEJphTl5dRFOPl2Uk18X
4xTQxZlhlUgrySmsS3GK6NKcoroMp5guywyrXFp5TkldgVNKV+SU1pU4ZfRJ
zLAqp53MKa+rcCroqpyKuhqnkj6FGdapadU5J+sanCq6JqeqrsWppk9jhlU7
7XROdX0Gp4auw6mp63Jq6TOZYdVLO4tzuq7POUM34NTRDTl19dnMsBqlNeac
pc/h1NdNOA10U05DfS4zrPPSmnEa6/M55+jmnCa6BaepbskMq1XaBZxm+kLO
+bo1p7luw2mhL2KGdXHaJZwLdFvOhbodp7Vuz2mjOzDDujTtMs4l+nJOW92R
00534rTXnZlhXZF2JecyfRXnct2F01F35XTSVzPDuiatG+dKfS3nKt2d00X3
4HTV1zHDuj6tJ6ebvoFzre7F6a57c3roG5lh9Um7idNT38y5Qffl9NL9OL31
Lcywbk3rz7lJD+DcrAdy+upBnH56MDOs29Ju5/TXd3AG6CGcgXooZ5C+kxnW
XWl3c27X93Du0MM4Q/RwzlA9ghnWvWn3ce7WIzn36FGcYXo0Z7i+nxnWA2lj
OPfpBzkj9VjOKD2OM1qPZ4b1UNrDnDH6Ec6DegJnrJ7IGacfZYb1WNrjnIf1
E5xH9CTOBD2ZM1E/yQzrqbSnOY/rKZwn9FTOJD2NM1k/wwzr2bTnOE/r5zlT
9HTOVD2DM02/wAxrZtqLnOf0LM7zejZnup7DmaHnMsN6Ke1lzot6HmeWns+Z
rRdw5uhXmGG9mvYa52X9OmeeXsiZrxdxFujFzLDeSHuT85p+i/O6XsJZqJdy
FullzLDeTnuH86ZeznlLr+As0Ss5S/UqZljvpq3mvKPf4yzXazgr9FrOSv0+
M6wP0j7krNYfcd7T6zhr9HrOWr2BGdbHaZ9wPtQbOR/pTZx1ejNnvf6UGdaW
tM84n+jPORv1Vs4mvY2zWX/BDOvLtK84n+mvOZ/r7Zytegdnm/6GGda3aTs5
X+ldnK/1bs52vYezQ+9lhrUvbT9np/6Os0sf4OzWBzl79PfMsH5I+5GzX//E
+U4f4hzQhzkH9c/MsI6kHeX8qH/h/KSPcQ7p45zD+ldmWL+l/c45qv/g/KJP
cI7pPznH9V/MsP5O+4fzu/6X84eOH58TrOjMzGwnFp2VmW2GlSP+lTKznVh0
rsxsJxadOzPbydB5mJk6LzOsfGn5mTl1AWYuXZCTWxfi5NGFmWEVSSvKya+L
cQro4pyCugSnkC7JDKtUWmlOUV2GU0yX5RTX5TgldHlmWBXSKnJK60qcMvok
TlldmVNOn8wMq0paVU5FXY1TSZ/COUmfyqmsqzPDqpFWk1NV1+JU06dxTtG1
Oafq05lhnZFWh1NT1+XU0mdyTtP1OLX1Wcyw6qc14NTRDTl19dmcM3UjTj3d
mBnWOWlNOA10U05DfS7nbH0ep5Fuxgzr/LTmnCa6Baepbsk5V7finKcvYIZ1
YVprTnPdhtNCX8RpqS/mtNKXMMNqm9aO01q357TRHTgX6Us5F+vLmGFdntaR
00534rTXnTkd9BWcS/WVzLCuSuvC6ai7cjrpqzmd9TWcK3Q3ZljXpnXndNE9
OF31dZyr9fWca3RPZlg3pPXidNe9OT30jZzrdB/O9fomZlg3p/Xl9NL9OL31
LZwb9a2cPro/M6wBaQM5ffUgTj89mHOLvo1zq76dGdYdaUM4A/VQziB9J2ew
votzm76bGdY9acM4Q/RwzlA9gnOnvpdzl76PGdbItFGcYXo0Z7i+nzNCP8C5
V49hhvVg2ljOKD2OM1qP59yvH+I8oB9mhvVI2gTOWD2RM04/yhmvH+M8pB9n
hvVE2iTOBD2ZM1E/yXlUP8V5TD/NDGtK2lTOJD2NM1k/w3lSP8t5Sj/HDOv5
tOmcqXoGZ5p+gfOMnsl5Vr/IDGtW2mzOdD2HM0PP5bygX+LM1C8zw5qXNp8z
Wy/gzNGvcObqVzkv6deYYb2etpAzXy/iLNCLOa/oNziv6jeZYb2VtoSzUC/l
LNLLOIv125w39DvMsJanreAs0Ss5S/UqzjL9LudtvZoZ1ntpazgr9FrOSv0+
Z5X+gPOu/pAZ1kdp6zhr9HrOWr2B877+mPOB/oQZ1sa0TZx1ejNnvf6Us0Fv
4XysP2OG9XnaVs4mvY2zWX/B+VR/ydmiv2KG9XXads5WvYOzTX/D+UJ/y/lS
72SGtSttN2e73sPZofdyvtH7ON/q/cywvks7wNmtD3L26O85e/UPnH36R2ZY
P6Ud4hzQhzkH9c+c7/URzg/6KDOsX9KOcQ7p45zD+lfOz/o3zhH9OzOsP9JO
cI7pPznH9V+cX/XfnN/0P8yw/k2Lw9EJVnRmVrYTi87KynZi0Tmysp1YdM6s
bDOsXKlz//8YpfMwM3VeZpbOx8yh8zPDKpBWkJNbF+Lk0YU5eXURTj5dlBlW
sbTinIK6BKeQLskprEtxiujSzLDKpJXlFNflOCV0eU5JXYFTSldkhuUT/M+J
RccdrxwrOu545VnRccerwIqOW16Y/wHkhly1
     "]]]}]], "Output",
 CellLabel->"Out[3]=",
 CellID->276462350,ExpressionUUID->"5f892a67-c10a-4435-8407-0cdc58330453"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d95592d8-063b-46a9-abd2-e4841eb977fc"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->464710515,ExpressionUUID->"17883435-9e07-4f6f-b145-e77299e32ce2"],

Cell["Create a hexahedron mesh of a curved shape.", "ExampleText",
 CellID->437510465,ExpressionUUID->"e9bcc0d7-093c-4156-a468-b485e7771b8c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.5", ",", "5"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.5", ",", "5"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"z2", "=", "4"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"Map", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "0", ",", "z2", ",", 
          RowBox[{"z2", "/", "8"}]}], "}"}]}], "]"}], "&"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"z", "+", "z1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x3", "-", "x1"}], ")"}], " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"z", "/", "z2"}], ")"}], "*", "Pi"}], "]"}]}], 
               ")"}], "/", "2"}]}]}], ",", "0", ",", 
           RowBox[{"z", "+", "z1"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "y1", ",", 
           RowBox[{"z", "+", "z1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x3", "-", "x1"}], ")"}], " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"z", "/", "z2"}], ")"}], "*", "Pi"}], "]"}]}], 
               ")"}], "/", "2"}]}]}], ",", "y1", ",", 
           RowBox[{"z", "+", "z1"}]}], "}"}]}], "}"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", "2", "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{"mesh", "=", 
  RowBox[{"StructuredMesh", "[", 
   RowBox[{"raster", ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", "3", ",", "2"}], "}"}]}], "]"}]}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->236247160,ExpressionUUID->"a6f72ada-10a1-4f11-bfbe-9a363e1a75da"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "4.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "0.5`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.`", ",", "9.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"HexahedronElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "48", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[5]=",
 CellID->377952970,ExpressionUUID->"5611ce2e-61ff-4880-bae3-d6e910a4ae1b"]
}, Open  ]],

Cell["\<\
Visualize the mesh and show the raster points in red and lines described by \
the raster in blue.\
\>", "ExampleText",
 CellID->1124190846,ExpressionUUID->"53b64a83-ea34-43b2-9f1f-1d2551fc8fca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Flatten", "[", 
          RowBox[{"raster", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "/@", "raster"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellLabel->"In[6]:=",
 CellID->1658937133,ExpressionUUID->"bba0c3ce-f71f-428f-a849-bb0d6a9c3143"],

Cell[BoxData[
 Graphics3DBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None, None], 
    GraphicsComplex3DBox[CompressedData["
1:eJx11j9LglEUx3FRg+gPNkSJRFgQQbSIS00+0VqLKC0NEWlLEASNQWNEvQBp
aGgJgt5AQVNbxBkS2jpgiiCBZIXQUhnnXu7vPudAgx8OX5/zDOHU5m6+FI1E
Iju/f7GINqOB+5ly4c7GC8W/qeew4zop+7bT4+Kn13GdlH3G54TnRffuCpQO
zBi4dNDZeIMqpcxMA+5CJ2Xfdpo9//I6rpOybzvX69mh+hm+H3RS9lm5VyYJ
Lh10Nl5eOjxK7zfhLnRS9rHTVTpdpdP1OsOZjfLzWjTAjuuk7LNyr0wKXDro
bDy5uPAab7XgLnRS9m0n1fNvr+M6Kfu28zQ3d7XcjgfYcZ2UfVbulZkAlw46
g7fhLnTstOEu04fvQfeeJwjv9CsdceyIe88DMwkuHXQ2vlernR4MvMP7QSdl
HzvRILwjjh1x25mvVgu3iUGv4zop+6zcK5MGlw46G195ubvZve/A+0EnZR87
sSC8I44dcdvpPJ5XZi+HvY7rpOyzcq/MFLh00Nn48Xh2dfvtA94POin7tnPS
c/y/gU7Kvu3kLx46qa2E13GdlH1W7pWZBpcOOhsvhP5uQSdl33b+f8/0Bdhx
nZR9hucc8Tqu413itvMDUWdmbQ==
     "], Polygon3DBox[CompressedData["
1:eJwNw2uvgQAAAFCSN9Uy5LEslJblPS1RxgplTITVFSKvbPf/f7v3bIdwfnUH
8Pl8P//B//4kAvoBKAkGAX8IhQNAAIaCoQAAIqlwOBIEo2k0FImGguFUJpbJ
xmOxeCScwNLRLJaIxxPRSDJXRJJQPofiBRiCC3mkWEqlCRxNlcqZciWbwapE
ulLFsjmSLubyFIkztUK+UKOKdL1EsAxeqjfKjWalXG2xRLNVrZDtHk1SnTbT
79aoWrdD97g6y/eZOjdoDIRmozXkWWHYarZH4167I476E6nb6UpibzzleHnS
56bKQJkJg+Fc5mfzoTBaLMcjUV1MVpokSpo6Xq6n8mY1ma51Rd/OlPluI293
89nCOC4X6t5YmQdN1Q775dFab07mam3Zun3e6rvLaXO+7LbG9X409s716rh3
83E77A83x7k93OP9ad3d1/P0fpju4/2ynh/7+fI+H+9sX77v0+v99bzv5fwH
/aVQYQ==
      "]]]}, {
    {RGBColor[1, 0, 0], PointSize[Large], 
     Point3DBox[
      NCache[{{0, 0, 5}, {0, 0, Rational[11, 2]}, {0, 0, 6}, {
        0, 0, Rational[13, 2]}, {0, 0, 7}, {0, 0, Rational[15, 2]}, {0, 0, 
        8}, {0, 0, Rational[17, 2]}, {0, 0, 9}, {2, 0, 5}, {
        3 - Cos[Rational[1, 8] Pi], 0, Rational[11, 2]}, {
        3 - 2^Rational[-1, 2], 0, 6}, {
        3 - Sin[Rational[1, 8] Pi], 0, Rational[13, 2]}, {3, 0, 7}, {
        3 + Sin[Rational[1, 8] Pi], 0, Rational[15, 2]}, {
        3 + 2^Rational[-1, 2], 0, 8}, {
        3 + Cos[Rational[1, 8] Pi], 0, Rational[17, 2]}, {4, 0, 9}, {
        0, 0.5, 5}, {0, 0.5, Rational[11, 2]}, {0, 0.5, 6}, {
        0, 0.5, Rational[13, 2]}, {0, 0.5, 7}, {0, 0.5, Rational[15, 2]}, {
        0, 0.5, 8}, {0, 0.5, Rational[17, 2]}, {0, 0.5, 9}, {2, 0.5, 5}, {
        3 - Cos[Rational[1, 8] Pi], 0.5, Rational[11, 2]}, {
        3 - 2^Rational[-1, 2], 0.5, 6}, {
        3 - Sin[Rational[1, 8] Pi], 0.5, Rational[13, 2]}, {3, 0.5, 7}, {
        3 + Sin[Rational[1, 8] Pi], 0.5, Rational[15, 2]}, {
        3 + 2^Rational[-1, 2], 0.5, 8}, {
        3 + Cos[Rational[1, 8] Pi], 0.5, Rational[17, 2]}, {4, 0.5, 9}}, {{0, 
        0, 5}, {0, 0, 5.5}, {0, 0, 6}, {0, 0, 6.5}, {0, 0, 7}, {0, 0, 7.5}, {
        0, 0, 8}, {0, 0, 8.5}, {0, 0, 9}, {2, 0, 5}, {
        2.076120467488713, 0, 5.5}, {2.2928932188134525`, 0, 6}, {
        2.6173165676349104`, 0, 6.5}, {3, 0, 7}, {
        3.3826834323650896`, 0, 7.5}, {3.7071067811865475`, 0, 8}, {
        3.923879532511287, 0, 8.5}, {4, 0, 9}, {0, 0.5, 5}, {0, 0.5, 5.5}, {
        0, 0.5, 6}, {0, 0.5, 6.5}, {0, 0.5, 7}, {0, 0.5, 7.5}, {0, 0.5, 8}, {
        0, 0.5, 8.5}, {0, 0.5, 9}, {2, 0.5, 5}, {2.076120467488713, 0.5, 
        5.5}, {2.2928932188134525`, 0.5, 6}, {2.6173165676349104`, 0.5, 
        6.5}, {3, 0.5, 7}, {3.3826834323650896`, 0.5, 7.5}, {
        3.7071067811865475`, 0.5, 8}, {3.923879532511287, 0.5, 8.5}, {
        4, 0.5, 9}}]]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     Line3DBox[
      NCache[{{{0, 0, 5}, {0, 0, Rational[11, 2]}, {0, 0, 6}, {
         0, 0, Rational[13, 2]}, {0, 0, 7}, {0, 0, Rational[15, 2]}, {0, 0, 
         8}, {0, 0, Rational[17, 2]}, {0, 0, 9}}, {{2, 0, 5}, {
         3 - Cos[Rational[1, 8] Pi], 0, Rational[11, 2]}, {
         3 - 2^Rational[-1, 2], 0, 6}, {
         3 - Sin[Rational[1, 8] Pi], 0, Rational[13, 2]}, {3, 0, 7}, {
         3 + Sin[Rational[1, 8] Pi], 0, Rational[15, 2]}, {
         3 + 2^Rational[-1, 2], 0, 8}, {
         3 + Cos[Rational[1, 8] Pi], 0, Rational[17, 2]}, {4, 0, 9}}}, {{{0, 
         0, 5}, {0, 0, 5.5}, {0, 0, 6}, {0, 0, 6.5}, {0, 0, 7}, {0, 0, 7.5}, {
         0, 0, 8}, {0, 0, 8.5}, {0, 0, 9}}, {{2, 0, 5}, {
         2.076120467488713, 0, 5.5}, {2.2928932188134525`, 0, 6}, {
         2.6173165676349104`, 0, 6.5}, {3, 0, 7}, {
         3.3826834323650896`, 0, 7.5}, {3.7071067811865475`, 0, 8}, {
         3.923879532511287, 0, 8.5}, {4, 0, 9}}}]], 
     Line3DBox[
      NCache[{{{0, 0.5, 5}, {0, 0.5, Rational[11, 2]}, {0, 0.5, 6}, {
         0, 0.5, Rational[13, 2]}, {0, 0.5, 7}, {0, 0.5, Rational[15, 2]}, {
         0, 0.5, 8}, {0, 0.5, Rational[17, 2]}, {0, 0.5, 9}}, {{2, 0.5, 5}, {
         3 - Cos[Rational[1, 8] Pi], 0.5, Rational[11, 2]}, {
         3 - 2^Rational[-1, 2], 0.5, 6}, {
         3 - Sin[Rational[1, 8] Pi], 0.5, Rational[13, 2]}, {3, 0.5, 7}, {
         3 + Sin[Rational[1, 8] Pi], 0.5, Rational[15, 2]}, {
         3 + 2^Rational[-1, 2], 0.5, 8}, {
         3 + Cos[Rational[1, 8] Pi], 0.5, Rational[17, 2]}, {4, 0.5, 9}}}, {{{
         0, 0.5, 5}, {0, 0.5, 5.5}, {0, 0.5, 6}, {0, 0.5, 6.5}, {0, 0.5, 7}, {
         0, 0.5, 7.5}, {0, 0.5, 8}, {0, 0.5, 8.5}, {0, 0.5, 9}}, {{
         2, 0.5, 5}, {2.076120467488713, 0.5, 5.5}, {
         2.2928932188134525`, 0.5, 6}, {2.6173165676349104`, 0.5, 6.5}, {
         3, 0.5, 7}, {3.3826834323650896`, 0.5, 7.5}, {
         3.7071067811865475`, 0.5, 8}, {3.923879532511287, 0.5, 8.5}, {
         4, 0.5, 9}}}]]}}},
  Boxed->False]], "Output",
 CellLabel->"Out[6]=",
 CellID->221260973,ExpressionUUID->"5a722486-dc06-444a-abd7-4861f7dda788"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "69ad5d1e-42b3-45aa-8ece-8ee5a7aabb39"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1014460609,ExpressionUUID->"e2b39679-ab80-42c2-9331-ce2d68fa6693"],

Cell["Create a hexahedron mesh of a part of a ball.", "ExampleText",
 CellID->8680712,ExpressionUUID->"623256b6-9363-4215-8882-17dc3b3dbbcd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"Map", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", 
           RowBox[{"Pi", "/", "10"}], ",", 
           RowBox[{"Pi", "/", "2"}], ",", 
           RowBox[{"Pi", "/", "16"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[CurlyPhi]", ",", 
           RowBox[{"Pi", "/", "4"}], ",", 
           RowBox[{"Pi", "/", "2"}], ",", 
           RowBox[{"Pi", "/", "16"}]}], "}"}]}], "]"}], "&"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"0.8", "*", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", 
           RowBox[{
            RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], ",", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}], ",", 
        RowBox[{"1.", "*", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", 
           RowBox[{
            RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], ",", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], 
       "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "4", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"mesh", "[", 
  RowBox[{"\"\<Wireframe\>\"", "[", 
   RowBox[{"\"\<MeshElementStyle\>\"", "\[Rule]", 
    RowBox[{"FaceForm", "[", "LightBlue", "]"}]}], "]"}], "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->759988248,ExpressionUUID->"64f7ace6-881a-4685-b7b8-798297ad831b"],

Cell[BoxData[
 Graphics3DBox[
  {EdgeForm[GrayLevel[0]], FaceForm[None, None], 
   GraphicsComplex3DBox[CompressedData["
1:eJxF2Xk0VI8bx3EiFSL70qJFSbZQ2tSjRJK0KZJCi2wR9S1Rlopkz1aUikgl
a/YlRGTLvjPMPoMsUanIzx+/ee79533O55w5M2fuPa+598ya887HLy3g4uLy
4ebi4pmvuNojVyGrKuA0pt9OuMuMBcU1n7yiVL5iNa6Y3hhdx4Tvjcm1pT0t
2MLj1ttFK+jw4EZNv9TpDuxq2quMo/w0GBhJMGa7d2O9/XpeTPFSQPqQmdNN
pz5s3nnJqOisARhSFvXWKCRh93yWc1Z82QPpwi4xOy8MYkuVlopyWbVDgMxY
BFWRjL24xTe42L8RxgqyYDaFjGUc3pUkRauA2PUy+xsFKFgnAdWN90UyYOG+
wtPCVdVYVw+rsEskNih7DDhsW9yEXUgrPqsSzYIJo+PVDovbsIzLzDO6ckwY
W/r6zNuPndjza9OKfhjSIXV5MPWxaC+WpdrF1l1PhdrG3fRzW0lYF5rm3EDH
IPQlL2kbOk40vFyET9mwD96tXqzrZEfGevxTEePK7YC1AqoNPtoUbHuFqlJi
WROE0FPFSqoo2MoFoXKn136GqTzz7UHKVOz6kQz7Z6KZ8NOEqrNMuQZrJGMq
MnlhGNwf9Usl/m7Cdpmv1XNcPATjNTMVUlrtWJE7V7yue7DALOlu9075bmyi
VX5VbCAD3A1vuum/68Me7WzXjNCjgYfJOgv9mQHsg8d9H663kWH/Dn7bYgOi
9BKeONWpfkhUfzES70zBajUbi3MJdkHRjCPf6iNUrNu3WOGh4mZQEXnLvE2m
Yl/lUWJi56/3w4bPlA8epmH76jVTs8WygHVZcKNIeC12Q97hcG/2CFQn91Ys
G27GpjQ/UE5xH4Yx/eSyigsdWO3wyYSkTjaUaVua1j/swTKef2qGeiYY3LJe
+mMvCZvn1XqHcokO0Y732dHkQewzQ1/bJS0USKnlnwneQ3R74Q9N9ecD8GKf
VnT7f1Ts91fOElznu8FkNAU+WtOwK6QWTakVtEC9dmKR9gwNe9dRS7zveTW8
7utfzedEx4an5o7Vi3+AbvetwqLTddg5k/1iQs6jIPGx2/lOXwvW0+Cb2NDI
CIxWHCtxftSJtU2+VdWhOQwb23a1nx3rJdpf30cTZIPkm0MJr7oHsHIbm6vV
/Rgwpvorkf8zGZs1q7LyeSMVRC0Ewiy3ENXvvUaXSRyE2BMNsOQ2DZt2I0yS
K78HRgaG3Cyu07GlOte6/stpBQfbF6Ezkgys1ZqAkJX9X4DLWU6iIoSBPRiy
Q4MukQ1yFflmGSoVcJJ/0Or93Bd0cpFHiGVbfw2oiizOze5tQic//iOXb1Bs
gpKtjbPpy9oJJwMsXPIVWsE6cKqG9qsLnSRVFsb+7WgHXjPr9IKbfeikRwe/
z+NzXbB+0CWeVDGATtInznmYn+oBw3+LAvduIqOTawTveeZK9cFbstdCuSMU
dJJb/kDEfsd+MHU+yCWmQkUnM68qKBw6RILoF55VVz5S0cmazqg/wWMkWBVv
991DkYZOHjuy/1ygVSX84R/dkBxai07mnX+QlOlRB3vDbbmvspvRyXeruFQL
lJpBWvH9bKF1BzqpdsJ1WtO8DaTaIiQvPOhBJ5VcbEwctnTC/SumhluBhE5S
7i3/7U3rBnGvSj2hwUF0kocsvq7sby+oeua/os+7x3GSqu3AUO/uh4qBzh/L
rlPRSZ1oj77FugNwmM94M82Shk6SJutH5qQGIfQhI8HkDw2dfBUrd0XXeRA2
7wrLFHOko5P3ehsv2ER8hhcCMyPxcvXopK2h93CITAOYiNUYKf1qQSej9qyK
PaTaAtdXPJz9nNWJTnYt9/dKD2qHhhWaF8iSfejkrZWiQr2PuuBu+WtXM55B
dNJQXdnF3r4XJISadqqQyOjkmqba2vXx/SD2z7b44bx76OSVE8apsQPQ36/G
WBBDQyd1eLvCGUGDsC/uuFVOOB2dvKDGp2/OT4aH14y9dmkx0Enrg1N9pTZk
2NeeezUljYFO5lw+Y7e3qgr0BPk/PEtvQCelNG6pO+Z9BZtIxScM3jZ08u45
bT7S5lZoEraZbeLpRie9aXF8SqUdcO9SS7rl6350srqmpNpwrBv21a/RkWQO
opOZJG32ifE+kIzrVTPqo6CTUOrtGqg/ANN3ZNpVztPQSc3GlWfE0wZhuvdB
x1QJHZ202u2aZ+BGhm1bTMP8PjPQSbY9vMieIcO9s7ln1roy0Um56S9G2uco
cMK5X013golOMicZTit+V8OQoPStx9CITtIEC4oSN83/bkoEUONF29HJK57m
rlc120CZR3e216SHcDL1Q/DriU7YkeYy0791AJ0Uv2HnU2jUCws6ny1tqyWj
kzJBh6133yCBtDJT3qGHik6qmS4Pnv5v/v5htuZb87x7HCcjmSLCLSFkEO0Z
qGJQGOik9w3BvncXKKBSd6bMdJqJTjq9dpsWGqPA7QOrti9JY6GT/a/jivNP
UuHSEt6xHk02Omm99dE503ul8NpnIHTBwTp0UmtDzJ9jOp9BQCbH29mmBZ1U
ns1v+x5cC9v0hCaGZzvQSV6Hm/X+txrhoExo032dXnRyX8uHs5cnmmHprJDx
QdEBdHLEevr4jYVtcHLLgYbmk2R0cpvYbsapV+0w66ARqlRMQSfDLJ+6+op3
gvd1XauWv1R0ko+iPHFEuQvyV708IjZKQyfD76eeCqR2QUeGz72CIDo6uSkv
Sc3LvhtYuUmnw7kZ6OQZ+d32VSVlUHarPz98th6djMnfJ2saWQXP7MvcOoJa
0cl/QbwLWrTqIUBRLqP2Shc62XP1xfuw/Hmf+J+sDJ7qQydthENb7yxrBeef
NydyfQbRSX6WQn6DXjs8TV4+pOpAQSftaS9Ngua/35Lw9QajTCo66S/xuabB
twu+pBzwC91FRyc3ZMC4ePr8fdvq2PtT2gx0stdCWrDSpQeodQXLfekMdPKZ
6Mu1Cty9YCqq45VizUQnF6WprycXlEOvSy95bdZXdHLGcGSHBasaVIrrru7+
0IZONq04qpY50AD9Szc7v+3vRic1lHkmLbKbwXXmpX3UGxI6GWBkfzBSrQ1M
nVi7DrqT0UlFJ9OV6/06YFB2nC/Im4pOxuXwVpSbdsGdAmnuTDE6OulTN7pa
8lc3CFMPvTfyYKCT+p7Hx7rVeyF0bWRBeyATnZTfeq98Zq4XJhgTH47uYaGT
Qk6xEo2P++DzlZ7EynIWOpm1bcPg35xP8Dfb0fe0ZhM6adkfddpauwZKlnba
Jna3o5OJ759ahM1fd+rfdVT9D/eikwFMmx2KGS3A86ut11h1EJ1Me6hX+s64
HXQYZn69rhR00mDK7+7tqk5YH1K5jh1FQyeb/GzVf2V2w+5BgcJrwEAn3X2k
3c7Zzp9H2aMtS4qY6KSN0aXR59nz9+3yIaO5PSx00nHp6I2tIf3wj3uT0YrH
bHTSpyZy8U1VEmjWXK/tXzOETlqUyz6VzKqAxZnDMfFLm9HJT85wyyasFowt
KVYCXJ3o5K7nk5V5T5rgfsexbzYlfegkJaHW60dKK3x1Pr3gxGIyOtlStXpr
+ZUO2HiupumKAxWdtHHPZbbydYMDd4yOfgodneQxq3+hLNgLM3xzrloOTHTS
ddu+xtfdffDimMl01R8WOukn6/btwjYS2GzwX/dEcQidzKWbKTutGACBledp
zLEhdHJSPvTvqs8DEC8vPP7TZxidDHHwGeHang9LokLnlmk3oJMGdZSjQifL
4L/bLLm/ua3Ec/dzVX9n20qw+ncx8VpCFzo5PtrgdnPzF4DVMRO/NPrRSelN
K9ROR9bBv28nJYySBtHJzp69XxSqvoLJ9w5lajgFnRwIe1+mEN8076K/Uaco
DZ18K6MkTJm/3rd8KXprYkdHJ9deCd3LjmiB9wqTPjRHBjrpk/5radHqVkj/
VnRjUJKJTpqwrRVc/Vth2qbhlmgkE508cPfgX++iAjgd4i/cItyITs78Gt9q
aV4O2rzMZvvvbegk2T/T+2faZ9A3TiHFKvegkwMN5uOeH2pANyvrqgLfADpZ
MLL00/PDDUAySul4mU5GJ/fNnF+rd7oJblknWooUU9HJkdN52jtTmuEh/Wg5
rwkdndStW7k5o6sF8u6bTrFLGejk1IU37QolraBgLlqb1cpEJ29t6vxYdbwN
At4reBr7s9BJ9qKug7/L2sB2t338iaVsdJIrRoSfG4rmX18WWuPShE5myM/J
Zlh+At4g+r0elQ7CSdctt+78qALl5xPSn3J70cmv75mX/bTqYN1axs0Ux0F0
0jx9zoTG1wgfU7ie/CigoJPSAklWN440w/Mml3Cg09DJP2s/5RvltMBdBxkt
jSgGOkm6veyY51Qr7Nw7ucdLkoVOVpmX29kw2iAhSF3UZycbnXRJynVuud8O
Fx0ifIt/s9FJzw3Gjt6/26FTbFFNpN8QOpmf3i3t86kY7uiUSL0704xOXjq2
lIv7UgXUidG2Gtp1opOlFnkuvNpfQGR02wm2Tj86WRx4fSC4oB7WD7tu0z1F
Rif/5U9Pils1QRz/qdOGlVR0ckyG+TxZrwUqYJ5uIQY6uXikfotlaSu4T5Df
WXYw0Uk3VR5Xo/nnuo+zIQ/Fr7DRySfHemYThTtgRelR8yPxQ+ik3ero1aT5
6wU2zQVtchhGJ8X0KkMWaXSC/tCr8fa5YXTSpSpegVv/I6wvKXgRMP+5OE7K
eC6nH7OvhPCnFGZBYhc6maa/0z7wbg382u0ZvKyOhE6m2HObRml/BYXsuZ89
QEEnjWNdSvK0m+GOXYrsi680dPLzRsX+rl2twEoTnH66jYlOSuR0ZrjUtMG1
m+/kgqXY6KTo4I9wWeUO2Fu4qe1txRA6aW8w+Yi6vRMeTzgnrFw8gk5aP/2v
mc3qBFm2feSTvhF08s2FnZkh9l2QW6YjLXXrGzoZW8H+23I4A5ZTdPaed/6K
TtIZamdOz+aAReBLzx1+beikROnTPRvci0Cq7E+mXVI3OunnrShRZlAGaYpL
wtiXSOikm2TWDe5Hn4Cn+8T+AyZkdJK+QUQoOK8SBuQPLFp3iopOCqhqCTZe
qIJIt4QjvXTCSf0LGteaydWg/kD8p60hA518P9WXYsJTA/EC2WbxZkx0crj+
GOtbWQ28toxSf7KEhU5Gf0nZEG5UCzefPtYbDWShk62Wb5QyjmfCKrd3GspK
TeikCZ0yrno2D0QiAyTjvrajk3wevglf1EtAxlH2cBn0opMh0rcljQ6Xgzzp
vrj8hkF0krRtZYhIYQVESMbkB9pR0MkTO76TFvJUgcrjom2+gTR0cjjs94xA
bTWsfPmMd8cWBjrp/vBSwKhlDSQ2/ucrnM5EJ39VxP58GFEL5kbgpPSVhU4W
sjuqZizqID4nLVs9gI1OyvlKHjwzUQdqEhOKqeJD6KTgjM2ZYNMsUPPK3p+8
qhmd/ESN8uMtyYfqZ9fTuKQ60clfWs58DuyPsFx6J0uypw+djM74KtV17BO4
Kiy0PiFDRif1T/snraFWwjoTknKTJxWdLD/Umu5pXA0eSzbbMsvo6GT9ZPE3
g83z57E6uiD6LhOdTEt/Ei9AqgVJ6U7xXDE2Ork3wmxv6bp6kAiuvZejO4RO
+vNZJAn8roenAl+21fEPo5Nv9vo4yEc3ACPEUMgxbhid1H+yPtDe4gPo+H08
tVa0BZ3cTDFY0bOiEG4nndO/aNmFTl6/pZzjd7QMVlSevnflOgmdfG6wRubi
qQooveqbeleQgk6muk8WqwtWwYdH6+LFI2nopNq5bO9fMV/gi0fik4M/CSff
n/Im+UbXgtpYmNNUEwudJLfX5W+0qIeHVtsTLdyG0Mmg85JBUx8aoLHhZAwU
DKOTp9aR78lGfYUoa3LhxcARdFLj33Dwt52NELc48fumDd/QSe8ttMID1tlw
NPiLbdzCVnTy+eDfzPTbRaCRZkCqTu5GJx1N1zBNlctBKF9b+PyiQXTy9eA1
2XHzShAsXPgnc45wUvzZuba9W6tBt9FW4vRbOjoZdzXq2FV6DUiOStekKLHQ
yaAC3cZPM3WQLxm47rjcEDopMfOvUa+nAWbexGjy9A+jkx3qbR2K+xvBX4ic
VqP6DZ0UXa2ZGSndBKF5f3b/ExhFJ8+eVTLrdW6Ck3dnO9hpo+hke2QL79Eb
L6Fu+Qftb9qN6KSjnfqPKc3XkOBs1tQ+/3vFcXLPO2PX8x9TQGvGTDbueA86
+cn6+v3NLhlwk2QRuUVzAJ0cXDbTsKI0CwwnI2KO1BBOaovER88NZUOzjlJW
QRfh5BM9Pym7p7mw7RXdfdaVjk6eSvRWWL0yH8Qlri2fHCSc7DRNOum6twAG
k147GP0knOxIT7OlcBXCT+2wi6MphJNi5pucyMGFoN7ZlpmtzkYn132UW5hz
Jx4qN8Dic08IJ3m87+/f8jgZ4n6eVaFadxD3k5HXYgzcU+F34L/hql+Ek6Tk
oiBdt0xQO9U8qhlBODna3BsrNPwBvDRUImh0wsmjawXC0nfkQv/U4cN6knR0
8vvbf2/kFuaD/WzEcZVawsmnadOK358XwCX9TYcXHGGhkydT59wfthfC7mXW
Gpn/sdHJ1tgdoeMvi+CzTrdhqtYQOpk9J+hbqlUMifLfZxorCSevMh0Xyvom
QEKpvKteOOFkbHRnxLU/byD6zoWA8SzCSV+vJ2WqWulQsjyxZPxZPzr559uC
qFNeWbBu9/WIhiDCyZnwostcUjmQ7VIVdGsBDZ28oPnfQ0v/PBh6c5XVdIKB
Th4Surmzw6kA4kz3bTq7hoVODuRfVa5cXQQ5N8meIiWEk80LzF++tCuGZ+7L
f0v8IJxs8q3M+adTAlH716o7lhNOnkwaexo3UAJSrsIGw6Yj6GTJssKFXkGv
wNuMv085iHBSPXUTNevsOwjjtWPO8nSjkxI5pGv8tzLAO+VgqOy+AXRScoth
nJ3fB5CUl9p+2Y9wconJ0y3f9+UCK8PST0iOjk7e2D9wV7gzH35ZRNyzeMRE
J1+5jtUFdRVCU+Y4d7AbG52Ur2CpRicUw6K3TzJWKw2jk8Zm2Z/zZkvgD629
1P36CPE/ztUjfYLkj3DRwEFKyegbOvnLsCXLw78UAkqVI/iGCScFdi7io0Uk
guXEmJ64H+FkdcUdje9lKRAQ6LRf4GQPOmmzyeXB7KlMSIi7uTnhGuGkhvuj
pNvB2cAvUNjH5U1FJ6UkPLhpTnmwYnza69UuBjoZcPLg7dL1hcArkruK9ZVw
crbj8lndfcXAI/iiu7iRcNKuwUrdVv4jmPUcoajFjKCT9alCw18flYLpkTC/
gUnCSbrKFZ9gnTLQNMqeZXcQTh5y66G9f1IGs4KGpDWeY+gk1/8P2X2MicxE
wknOflBxmUTTKcJJzl6c5dW/9B3hJGd/uifyX1cs4SRnb9eWlLg07yPHSc6+
Uf+eSrIsDZ3k7G4Dx77uLiSc5Oz9Lp0yk8pMdJKz2/+sLaTrsdBJzv7c970w
dZZwkrNvkPX9eMmXcJKzrzpx19+zkXCSs5OUrCV3vyec5OysVNOiNJM+dJKz
7yvfc0C3lnCSsye8vGyTIk9FJzl7gPuZl8csCCc5+9VZrRSyBBOd5Ox/WNcP
fXpBOMnZm5JuSu6vJZzk7NOHk3XKgwknOfsXhyuyxSuHiefu/x+qviLSifWE
k5zdVTVL6h13FzrJ2cXeqsUcmSOc5OzbLmgKy1YTTnJ2Z96CvIn9hJOcfSRN
U2wmjnCSs19evsLf14VwkrNLW4neeSQ6hE7i+56Ud00wHkYnOftxyQSXFytH
0EnObl9y8oZoLuEkZ4e8l8k1NYSTnJ1PnUdGypRwkrPvSVx0c/wt4SRnV1q4
sXO8gnCSs2vb8i/ZfolwkrMfoQr4vR4gnOTs53ZwX1JsIJzk7Fqd6WlWvoST
nP05b3MDVyvhJGdPIT1LuJNKOMnZlwrvabE1HkUnOftRttq2sSrCSc7+VNNE
9v57wknOntPo/M7gHeEkZ1+dvOJFdRnhJGdfUn/G3NOXcJKzZ0rRpo+uYaOT
nP2UKWNvw8ZhdJKznzA+PKg2TTjJ2Xmz7yhamo6ik5x9YfLj1jO7x4j/u/9/
pFttUC1lEE7+Dwv+Y08=
    "], 
    {FaceForm[RGBColor[0.87, 0.94, 1]], Polygon3DBox[CompressedData["
1:eJxNlEdwVUcQRd84Kmd9ZYFMlBBZAmclMkiASBIZ5ZwzuQrWeE3OOXmN13jt
bGORg73GG29wuW/N+SUtut6d0/1+3Zk77+fVdVd3vRcEwb9WH1g5q0+tKqxi
WKv/GVwsFhbuvW/1OTPqxcHCPf3uF8yoFw8L9z60+pIZ9RJg4d5HVl8xo14i
LNz72OprZtRLgoV7EVYlzKiXDAv3Iq1KmVEvBRbuRVmVMaNeKky9kFWlVblV
NDyadRmzoUm9GM62yiqNSufcYtAZnFMsOpNziUNncQ7x6Gz2nYDOYZ+J6Fz2
lYSewj6S0VPxKZZnVcOeQvTy0Kn4lfdaq0+oafhOQ0/Hdzp6Br4z0DPxnYme
he8s9Gx8Z6Pz8Z2DLsB3LnoOPsUKrerZQx69QvRU/Mp7g9Vcno1W81jPRU9j
Vr0mq/nweejpzKjXbLUAPh89gxn1WqwWwhegZzKjXqvVIvhC9Cxm1GuzWgxf
hJ7NjHrtVkXwxeh8ZtTrsCqGF6ELmFGv02oJvBg9h5mlVl2caSGzXfAl1FJ6
ekf/Ed1WY4G/51rrf6EHLq3/gV6YtL77Ppi0vvN+mLS+6wGYtL7jQZi0vtsh
mHSp1TBMWt/hCEz3+pjVaDDxjZazHsGzvB8P/D3XPTrBO5Uw9b4J/D3SuZxk
pgam3qnA3y09Twf+HjWgzwT+3jSizwb+njShzwX+XjSjzwf+HrSgLwQ+91b0
RXJuQ18i13b0ZXLrILsreK6ndwXeSUZXrb7lHLrJ6Rq8h5yuw3rJ6Qasj5xu
wvrJ6RZsgJxuwwbJ6Q5siJzuwobJ5R5MOTywuj8ps1HW9/As79+Rk3J5yDvH
YOp9T046hx+YOQFT70ey0/MncjuF/pncTqN/Ibcz6F/J7Sz6N3I7h/6d3M6j
/yC3C+hH5HYR/Sc5XSKrcTyfpDcOv0xGj63+5hyuktMT+DVyegq7Tk7PYDfI
6TnsJjm9gN0ip5ew2+T0CnaHnF7D7pLLG5hyeGv116TM7rN+g2d5/4eclMs7
3nkAU+8/ctI5RDg/8xCmXqTz2ekZ5XxuWktHO5+bmHSM87mJScc6n5uYdJzz
uYlJxzufm5h0gvO5iUknOp+bmHSS8zk9Iqtk5z3Lu3paj5OlMkqx9RTnz+Ex
OaU6z5+QU8h59pSc0pxnz8gp3Xn2nJwynGcvyCnTefaSnLKcZ6/IKdt59ppc
cpxnyiHfnrluIjM9tc7Bs7wXOJ+Tcily/p23ZKdesfM56RxKnJ95R3bqlTqf
nZ5lZBiJLifDKHQFGUajl5FhDHo5GcaiV5BhHHolGcajV5FhAno1GSaS1Ro8
R9BbA08io7VWW8kwhZzWwdeitzGTSm6V8HXoGmZC5FgFr0TXMpNGruvhVejt
zKST8wb4evQOZjLIfSN8A3onM5ncg2r4RvQuZrK4F5vg1ejdzGRzLzbDN6H3
MKN7sddqi5u4Q7msN1NbmNnDmerc9jl/j7ZyTnWwbZxLPayGc2iA1bLvRth2
9tkE28G+mmE72UcLbBe+W2G78dUG0z1ux28+vb2wNjzLZ4fz93wfPjthdfjs
gtXjsxvWgM8eWCM+e2FN+OyDNeOzH9aCzwFYK74GYbrXQ/gtotcOG8SzfA47
/2124HMENowuo9+J71H4CLqcmS72MQYfRVcw082+9sPH0MuY6WGfB+D70cuZ
6WXfB+EH0CuY6eMcDsEPolcy08+5HIYfQq9iZoBzOQI/jF7NjP4bjnJ+JcwO
wY5QR5nTO/8DFbJ4GA==
      "]]}]},
  Boxed->False]], "Output",
 CellLabel->"Out[3]=",
 CellID->47318728,ExpressionUUID->"97dd08d6-1eb6-4c66-9d43-0511eee26a35"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e0597a67-822e-405f-9b20-767abccb308b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->240973856,ExpressionUUID->"ed2536f4-1d2a-4f8e-a4f2-fcbaa0a7faeb"],

Cell[TextData[{
 "Create a boundary ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "5a4f6358-27b4-4849-8493-4424b6fd0ad3"],
 " of a raster of a sphere by specifying raster points embedded in 3D and 2 \
mesh subdivisions of 40 by 10 elements."
}], "ExampleText",
 CellID->1863989885,ExpressionUUID->"fdfa2a5c-8835-4a5f-bb64-b1517b73b963"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], ",", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", 
       RowBox[{"Pi", "/", "8"}], ",", 
       RowBox[{"Pi", "/", "2"}], ",", 
       RowBox[{"Pi", "/", "16"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", 
       RowBox[{"2", "Pi"}], ",", 
       RowBox[{"Pi", "/", "16"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"mesh", "=", 
    RowBox[{"StructuredMesh", "[", 
     RowBox[{"raster", ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "10"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", 
    RowBox[{"\"\<Wireframe\>\"", "[", 
     RowBox[{"\"\<MeshElementStyle\>\"", "\[Rule]", 
      RowBox[{"FaceForm", "[", "LightBlue", "]"}]}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->189774995,ExpressionUUID->"81152399-c6ab-4386-870d-f534c134b787"],

Cell[BoxData[
 Graphics3DBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None, None], 
    GraphicsComplex3DBox[CompressedData["
1:eJx1mntQ1mUWx7lEa2be08pkRSs0LyWaka4+raWrZAqKq7V5IcppTc2Z1luZ
hY7p6nhHW5UUvCBNk6vmqmvlMV3vEiAimiQLCAr6Qq6p2aptM7/v9zScfX/v
P7/hGeaddz5z3nM+5/u8Ua++Nfj1sJCQkF2hISHhvzyTP9mcWfreaReCV98F
MTlvLg64rT+UzZkQVaznzbvExz519JJLvrmh90wp1fOpe/es3pBT6WI+nTti
WFa5nt94OOfqqHEXXOs7kSlRsRf1/KOHliY23HLerc+o327M6io9P/zG5md6
HCpxJ/77vaQlXdbzZz+MXlpVVeSuVb6UsykQ0PPtW2890qn5KRcWkpvzp4ga
PR+5PNtFHcx2uWNT+y/M+PV8/E9b333uxlf4+3s956tyxf6FKS1Pu1af3XVz
YupmRw7pi6+OC2Sec3nbx6d2f+tzRw4ZWTUvfzGp1M3eueOfi97Y6cjh20FR
Y1sOKXetwr+4Oa/uF44cer/Q+eKJ0xfcs5NfqR7ec48jh68nbmm5LabKLe2V
Gdkvba8jh4/H3D0gcOWSm/GXF5YU7vzakUPdgZvOlkwJuE2dMl9v9vd9jhz+
9sC5jv3nV7sBV968/fmI/Y4c2o8qvt300Rr3yumsFk/LfkcOe8sO1Gsys8at
S4i63eGn/crj+PPdfhj6RKG78U2D+9Pb7FEOYQ3uXhgz9TsXs7m4YE70fuXQ
bPSxt8dKiUvbmJ7TpfEh5ZC+NnF0ygfn3cQ7XR47nHlUOQzvvS/jxUCF2zVp
/ktHsrOVQ1azdQt+eKLSRc5Y917IqFzl0Cjvwu7q76pc6bWwE9Mm5ymH42+9
dr0w8bI7fWxcStuxJ5TD44UDB64dEXBdR1ZW/L5ZvnI4OaN9x+lXAq5b+qK+
IybnK4cNfVNyyuKqXd3dceunbclXDtX575Sc3VXglm7OSP5P1MFfOXTJmt8t
7ax7bUxu0pGo48ph9oZnhuxL/7cb0Lokt8uVXOXwQcXv8l55qswde/rjmLil
+cohsc/bD955p9w1S6w/qLK0QDmkxuw/2HrlBXfk6pnDA+49rRyWde7c6Fb7
Sje4ycrb+zaeUQ6Z7Tuf7Dm/yg0a1LxJ1r1nlUN5i6Fz42ddct3+1aRqbJ0i
5VB1b2i7M/dddmmLtu9ZsrxIOeThe/cc3pcc7or4cnSfr/NdSdrPUQe2HVcO
CS3C90Y+fMZ1P5438eGeJ5TDjosF9ef1Oueqc+rHn7lRoBweazx6Tb2pJW5G
cVSntNFnlEPYhOizoX8tc7/5sl11naQi5VBxsbDqvsnlrv7P7dfGdSxWDgWx
Q0rfPF/hPgRvcgj5bbvkc20uupvJ9XcfnVuiHDZ13n59WsQv3Ib3ufBJh1Ll
MKjHyZrJsypd3q2iph3nlioHfl7b51Jjz777TkKe45Mc2vQu6tUz/JQ+yWHY
ovey58z6Vp9831PJo66WpJ/TJznUXRi+LLpViT7J4cGyuTWv5pbqkxxOJiyL
X9zovD7JoXtW2dHV7cr1SQ7Xs2VKck25PslhY9eIjqdGVOiTHI73eH/MmvQK
fZJDMeogAnVBDrGog8GoC3IIoA52oi7IYTrqIBp1QQ4RqINw1AU51EMdsC7I
gd+7U6gLcvgRdRCKuiCHBNRBFupC5wXqIB51QQ5JqINp+NzksAh9oQZ9ghyS
0BfC0SfIIQ59gXVLDkfQF1LQJ8ihKfrCUPQJcjiEvrAcfYIc4tEX2CfI4UX0
hU3oE+TQBX2hAn2CHFahL1xCnyAHvp+dz9cwJzg3yOFJzAnODXJYhTnBuUEO
EzAnODfIYQfmxEuYG+TQEnOCc4McSjAnODf4uQsxJzg3yCEGc4Jzgxy6Yk5w
bpDDPZgTnBvkEAlvoEeQQy68gR5BDrPgDfQIcoiEN9AjyKEXvIEeQQ5L4A30
CHKYDm+gR5DDRngDPYIc4uAN9AhyeBneQI8gh3R4Az3C+hS9khx4Tq8kB/1/
fM+mmu8ZvZIceE6vJAee0yvJgees22fNfKNXkgPP6ZXkwHN6ZW2f5OtXr2zr
1YPYejjl1YPYepjv1YPYeoj26kFsPfTz6kFsPazw6kFsPcz06kFsPXzq1YPY
eoj36kFsPYz26kFsPWR69SC2Hu54/UFsf+jm9QcJNf0hw+sPYvvDZK8/iO0P
4vUHGW76Q2uvP8gm0x8qvP4gDU1/KPL6gxwz/SHW6w/SzvSH7l5/kHzTHxp4
/UHWm/4Aj5RqMy/gkRJm5gU8UmabeQGPlA/MvIBHSqKZF/BISTXzAh4pdl7A
IyXTzAt4pJSbeQGPlCozL+CRkmfmRZnnDxJu/KGH5w8Sb/zhe88f5B/GH973
/EEeNf5Qx/MHCTX+0NDzByk3/jDH4ysnjT/85PmD/BxZ2x+GeP4gmcYfTnj+
IAONP7zm9TWZYvoaPFJ8fFJ8fFJ8fFJ8fFJ8fFJ8fFJ8fFJ8fFJ8fFJ8fFKs
T8IjpdjsF/BIiTX7BTxSAma/gEfKdLNfwCMlIvh+IfXMfgGP1O8dOcAj5Uez
X8AjJcHsF/BIyTX7BTxSksx+AY+UBWbfhEfKSLNvwiOlv9k34ZFyyOyb8Ehp
bPZNeKQcMPtmqtcXZKDZN7O8viBxZt+ER8qTZt+ER8pHZt/M9/qC9DTzGHNC
rgXPH+TJ4PmDrAqeP8gEkz/AI2VH8PxBWgbPH6QkeP4ghcHzB4kJnj9I1+D5
g9xj8ocqzxvk/uB5lBwNnkfJ9OB5lDQLnkfJUyaP2ud5g8wPnkfJlOB5lKw1
edRKzxvk+eB5lCQGz6Nklcmj4JHCv00+qecmn9Rzk0/quckn9dzkk3pu8kk9
N/mknpt8Us9NPqnnJp/Uc77gkUKvtPVAr7T1QK+09UCvtPVArzT5pNArbT3Q
K2090CtNPin0SlsP9EpbD/RK2x/oleQAjxR6pe0P9ErbH+iVJp8UeiU5wCOF
XkkO8EihV5IDPFLoleQAjxR6JTnAI4VeSQ7wSKFXkkMA82IFvFL3LMyLP8Mr
TT4pg+CV6lGYF9/AK8lhCObFQ/BKcliGefENvJIclmBeDINX6r6JeZEIrySH
85gXPeCV5HAR82IdvJIccvG96wevJIcw+MMFeCU5DIQ/9IRXksM2+MNVeCU5
PAJ/mAmv1H0T/lAPXkkOZfCHpvBK7Q/wh3ngTQ63PY+UW/BKctgAf/gjvJIc
BsAfCuCV5DAJ/jDG9Dnjk+Ljk+Ljk+Ljk+Ljk+Ljk+Ljk+Ljk+Ljk+Ljk+Lj
k8oBHin0SpNPCr3S5JNCrzT5pNArTT4p9EqTTwq90uSTQq80+aTQK00+KfRK
k08KvdLkk0KvJAd4pNAryQEeKfRKcoBHCr2SHOCRQq8kB3ik0CvJAR4p9Epy
gEcKvZIc4JFCryQHeKTQK8kBHin0SnKAR0q+mc+XMSeyMTfI4XHMiXDMDXJY
hjnRHHODHMZgTmRgbpDDZ5gT9EpyeABzgl5JDkWYE40xN8ghD3MiG3ODHDpg
TrTH3CCHTpgTBZgb5BCOObERc4McQuEN9Epy+ArekAGPIIfxtfMo5RBRO49S
Dq1r51HKIQXeQK8kh3HwhjXwCHJIrZ1HKYdYeAO9khz+AG/oAI8gh4W186j/
8yl6pU8+KT75pPjkk+KTT4pPPik++aT45JPik0+KTz4pPvmkcmhbO68Wk0+q
V5p80tl6iK6dV4vJJ52thxW182ox+aR6pcknna2H+Np5tZh8Ur3S5JPO1sOd
2vcXYvJJ9UqTT6pXmnxSvdLkk+qVJp9UrzT5pHqlySfVK00+qV5p8kn1SpNP
qleSAzzSBcy8gEeqV5IDPFLnGznAI9UryQEeqV5JDvBI9UpygEeqV5IDPFK9
khzgkeqV5ACPVK8kB3ikeiU5wCNdmPEHeKR6JTnAI9UryQEeqV5JDvBI9Upy
gEeqV5IDPFK9khzgkeqV5ACPVK8kB3ikeiU5wCPVK8nB3Hdbn3Q+Pul8fNL5
+KTz8Unn45POxyedj086H590Pj7prE/ynrvY7Be85441+wXvuQNmv+A993Sz
X/CeO8LsF7znrmf2C95zzzb7Be+5fzT7Be+5E8x+wXvuXLNf8J47yewXvOde
YPZN3nOPNPsm77n7m32T99yHzL7Je+7GZt/kPfcBs2/CI9UrTT6pXmnySfVK
k0+qV5p8Ur2SHOCR7rLJH+CR6pXkAI9UryQHeKR6pckn1Svt76MeMPkDPFK9
khzgkeqV5ACPVK/U/oB7rE4mf4BHqleSAzzShZo8Ch6pXml/Lzc+eB6lXml/
L9fa5FHwSPVKcoBHqlfa38ulmjwKHqleSQ7wSPVK+3u5hSaP+h+nK68f
     "], 
     {FaceForm[RGBColor[0.87, 0.94, 1]], Polygon3DBox[CompressedData["
1:eJwt2VPUrdcZhuF/bSbbtm3bNv9t27Zt27bNpLEaJ22ctHHSxkmb1G0651jX
wTPmffAdXKffeEuOnJY6NU1KSsr2REpKuvCGJyVLWNawNBY7W1hai509Jfl9
Op0jLL3FzhmWwWLnCstosXOHPWCx84Q9aLHzhmWy2PnCMrPlDyvAlVUX5Mqm
C3Fl14W5cugiXDl1Ua5cuhhXbl2cK48uwZVXl2SMtlJhpbkK6DJcBXVZrkK6
HFdhXZ6riK7AVVRX5CqmK3EV15W5SugqjNFWNawaV2ldnauMrsFVVtfkKqdr
cZXXtbkq6DpcFXVdrkq6HldlXZ8x2hqENeSqphtxVdeNuWroJlw1dVOuWroZ
V23dnKuObsFVV7fkqqdbMUZb67A2XA11W65Guh1XY92eq4nuwNVUd+Rqpjtx
NdeduVroLlwtdVfGaOsW1p2rje7B1Vb35GqnU7na615cHXRvro66D1cn3Zer
s+7H1UX3Z4y2AWEDubrrQVw99GCunnoIV6oeytVLD+PqrYdz9dEjuPrqkVz9
9CjGaBsdNoZroB7LNUiP4xqsx3MN0RO4huqJXMP0JK7hejLXCD2Fa6Seyhht
08Kmc43RM7jG6plc4/QsrvF6NtcEPYdrop7LNUnP45qs53NN0QsYo21h2CKu
6Xox1wy9hGumXso1Sy/jmq2Xc83RK7jm6pVc8/Qqrvl6NWO0rQlby7VIr+Na
rNdzLdEbuJbqjVzL9Cau5Xoz1wq9hWul3sq1Sm9jjLbtYTu41uqdXOv0Lq71
ejfXBr2Ha6Pey7VJ7+ParPdzbdEHuLbqg4zRdijsMNcOfYRrpz7KtUsf49qt
j3Pt0Se49uqTXPv0Ka79+jTXAX2GMdrOhp3jOqzPcx3RF7iO6otcx/QlruP6
MtcJfYXrpL7KdUpf4zqtrzNG242wm1zn9C2u8/o21wV9h+uivst1Sd/juqzv
c13RD3Fd1Q9zXdO/YYy2R8Ie5bqpH+O6pR/nuq2f4Lqjn+S6q5/iuqef5rqv
n+F6SD/L9bB+jjHafhv2PNej+gWux/SLXI/rl7ie0C9zPalf4XpKv8r1tH6N
6xn9Otez+neM0fb7sDe4ntdvcr2g3+J6Ub/N9ZJ+h+tl/S7XK/o9rlf1+1yv
6Q+4Xtd/YIy2P4Z9yPWG/ojrTf0x11v6E6639adc7+jPuN7Vn3O9p7/gel9/
yfWB/hNjtP057CuuD/XXXB/pb7g+1t9yfaK/4/pUf8/1mf6B63P9I9cX+ieu
L/VfGKPtr2E/c32lf+H6Wv+N6xv9d65v9T+4vtP/5Ppe/4vrB/1vrh/1f7h+
0v9ljLb/hf3K9bOOP3a/sMVOJJKuuNhpEklXXOy0iaQrLna6RNIVFzt9IumK
i50hkXTFxc6YSLriYj+QSBqj7cHQmRJJV1zszImkK0VnYUzorIxpdDbGtDo7
YzqdgzG9zsmYQedizKhzM0ZbnrC8jJl0Pq7MOj9XFl2AK6suyJVNF+LKrgtz
5dBFuHLqoly5dDHGaCseVoIrry7JlU+X4sqvS3MV0GW4CuqyXIV0Oa7CujxX
EV2Bq6iuyBhtlcIqc5XQVbhK6qpcpXQ1rtK6OlcZXYOrrK7JVU7X4iqva3NV
0HUYo61uWD2uyro+VxXdgKuqbshVTTfiqq4bc9XQTbhq6qZctXQzrtq6OWO0
tQhryVVPt+Kqr1tzNdBtuBrqtlyNdDuuxro9VxPdgaup7sjVTHdijLbOYV24
WuquXK10N67WujtXG92Dq63uydVOp3K11724OujeXB11H8Zo6xvWj6uL7s/V
VQ/g6qYHcnXXg7h66MFcPfUQrlQ9lKuXHsbVWw9njLYRYSO5+ulRXP31aK4B
egzXQD2Wa5AexzVYj+caoidwDdUTuYbpSYzRNjlsCtdIPZVrlJ7GNVpP5xqj
Z3CN1TO5xulZXOP1bK4Jeg7XRD2XMdrmhc3nmqIXcE3VC7mm6UVc0/Virhl6
CddMvZRrll7GNVsv55qjVzBG28qwVVzz9WquBXoN10K9lmuRXse1WK/nWqI3
cC3VG7mW6U1cy/VmxmjbEraVa5XexrVab+dao3dwrdU7udbpXVzr9W6uDXoP
10a9l2uT3scYbfvDDnBt1Qe5tulDXNv1Ya4d+gjXTn2Ua5c+xrVbH+fao09w
7dUnGaPtVNhprgP6DNdBfZbrkD7HdVif5zqiL3Ad1Re5julLXMf1Za4T+gpj
tF0Nu8Z1Wl/nOqNvcJ3VN7nO6Vtc5/Vtrgv6DtdFfZfrkr7HdVnfZ4y2REry
rnCNLXa8K1xnix3vCjfYYse7wk222PGucIstdrwr3GaLHe8Kd9hix7vCXbbY
8a5wjy12vC1E4/8Ba0LFKg==
       "]]}]}, 
   {RGBColor[1, 0, 0], PointSize[Medium], 
    Point3DBox[
     NCache[{{Sin[Rational[1, 8] Pi], 0, Cos[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 16] Pi] Sin[Rational[1, 8] Pi], 
        Sin[Rational[1, 16] Pi] Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[1, 8] Pi], 
        Sin[Rational[1, 8] Pi]^2, Cos[Rational[1, 8] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi]}, {
       2^Rational[-1, 2] Sin[Rational[1, 8] Pi], 2^Rational[-1, 2] 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[1, 8] Pi] Sin[Rational[3, 16] Pi], 
        Cos[Rational[3, 16] Pi] Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {
       Sin[Rational[1, 8] Pi]^2, Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[1, 16] Pi] Sin[Rational[1, 8] Pi], 
        Cos[Rational[1, 16] Pi] Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {
       0, Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {(-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 16] Pi] 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {-
        Sin[Rational[1, 8] Pi]^2, Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {(-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi] 
        Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {(-2^Rational[-1, 2]) Sin[Rational[1, 8] Pi], 
        2^Rational[-1, 2] Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]^2, Cos[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 16] Pi] 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {-
        Sin[Rational[1, 8] Pi], 0, Cos[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], (-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], -Sin[Rational[1, 8] Pi]^2, Cos[
        Rational[1, 8] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], (-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[1, 8] Pi]}, {(-2^Rational[-1, 2]) 
        Sin[Rational[1, 8] Pi], (-2^Rational[-1, 2]) Sin[Rational[1, 8] Pi], 
        Cos[Rational[1, 8] Pi]}, {(-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {-
        Sin[Rational[1, 8] Pi]^2, (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[
        Rational[1, 8] Pi]}, {(-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       0, -Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[1, 16] Pi] 
        Sin[Rational[1, 8] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[1, 8] Pi]^2, (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       2^Rational[-1, 2] Sin[Rational[1, 8] Pi], (-2^Rational[-1, 2]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Cos[Rational[3, 16] Pi] 
        Sin[Rational[1, 8] Pi], (-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[1, 8] Pi], -
        Sin[Rational[1, 8] Pi]^2, Cos[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Sin[Rational[1, 8] Pi], (-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[1, 8] Pi], 0, Cos[Rational[1, 8] Pi]}, {
       Sin[Rational[3, 16] Pi], 0, Cos[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Sin[Rational[3, 16] Pi], 
        Sin[Rational[1, 16] Pi] Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[3, 16] Pi], 
        Sin[Rational[3, 16] Pi]^2, Cos[Rational[3, 16] Pi]}, {
       2^Rational[-1, 2] Sin[Rational[3, 16] Pi], 2^Rational[-1, 2] 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[3, 16] Pi]^2, Cos[Rational[3, 16] Pi] 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[1, 8] Pi] Sin[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[1, 16] Pi] Sin[Rational[3, 16] Pi], 
        Cos[Rational[1, 16] Pi] Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {
       0, Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[1, 16] Pi] 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {-
        Sin[Rational[3, 16] Pi]^2, Cos[Rational[3, 16] Pi] 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-2^Rational[-1, 2]) Sin[Rational[3, 16] Pi], 
        2^Rational[-1, 2] Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]^2, Cos[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[Rational[1, 16] Pi] 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {-
        Sin[Rational[3, 16] Pi], 0, Cos[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], (-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], (-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], -Sin[Rational[3, 16] Pi]^2, Cos[
        Rational[3, 16] Pi]}, {(-2^Rational[-1, 2]) 
        Sin[Rational[3, 16] Pi], (-2^Rational[-1, 2]) Sin[Rational[3, 16] Pi],
         Cos[Rational[3, 16] Pi]}, {-
        Sin[Rational[3, 16] Pi]^2, (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[
        Rational[3, 16] Pi]}, {(-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       0, -Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[1, 16] Pi] 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[3, 16] Pi]^2, (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       2^Rational[-1, 2] Sin[Rational[3, 16] Pi], (-2^Rational[-1, 2]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[3, 16] Pi], -
        Sin[Rational[3, 16] Pi]^2, Cos[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], (-Sin[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Sin[Rational[3, 16] Pi], (-Sin[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]}, {
       Sin[Rational[3, 16] Pi], 0, Cos[Rational[3, 16] Pi]}, {
       2^Rational[-1, 2], 0, 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Cos[Rational[1, 16] Pi], 2^Rational[-1, 2] 
        Sin[Rational[1, 16] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Cos[Rational[1, 8] Pi], 2^Rational[-1, 2] 
        Sin[Rational[1, 8] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Cos[Rational[3, 16] Pi], 2^Rational[-1, 2] 
        Sin[Rational[3, 16] Pi], 2^Rational[-1, 2]}, {
       Rational[1, 2], Rational[1, 2], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Sin[Rational[3, 16] Pi], 2^Rational[-1, 2] 
        Cos[Rational[3, 16] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Sin[Rational[1, 8] Pi], 2^Rational[-1, 2] 
        Cos[Rational[1, 8] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Sin[Rational[1, 16] Pi], 2^Rational[-1, 2] 
        Cos[Rational[1, 16] Pi], 2^Rational[-1, 2]}, {
       0, 2^Rational[-1, 2], 2^Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Sin[Rational[1, 16] Pi], 2^Rational[-1, 2] Cos[Rational[1, 16] Pi], 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) Sin[Rational[1, 8] Pi], 
        2^Rational[-1, 2] Cos[Rational[1, 8] Pi], 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) Sin[Rational[3, 16] Pi], 
        2^Rational[-1, 2] Cos[Rational[3, 16] Pi], 2^Rational[-1, 2]}, {
       Rational[-1, 2], Rational[1, 2], 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) Cos[Rational[3, 16] Pi], 
        2^Rational[-1, 2] Sin[Rational[3, 16] Pi], 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) Cos[Rational[1, 8] Pi], 
        2^Rational[-1, 2] Sin[Rational[1, 8] Pi], 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) Cos[Rational[1, 16] Pi], 
        2^Rational[-1, 2] Sin[Rational[1, 16] Pi], 2^
        Rational[-1, 2]}, {-2^Rational[-1, 2], 0, 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Cos[Rational[1, 16] Pi], (-2^Rational[-1, 2]) Sin[Rational[1, 16] Pi],
         2^Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Cos[Rational[1, 8] Pi], (-2^Rational[-1, 2]) Sin[Rational[1, 8] Pi], 
        2^Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Cos[Rational[3, 16] Pi], (-2^Rational[-1, 2]) Sin[Rational[3, 16] Pi],
         2^Rational[-1, 2]}, {
       Rational[-1, 2], Rational[-1, 2], 2^
        Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Sin[Rational[3, 16] Pi], (-2^Rational[-1, 2]) Cos[Rational[3, 16] Pi],
         2^Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Sin[Rational[1, 8] Pi], (-2^Rational[-1, 2]) Cos[Rational[1, 8] Pi], 
        2^Rational[-1, 2]}, {(-2^Rational[-1, 2]) 
        Sin[Rational[1, 16] Pi], (-2^Rational[-1, 2]) Cos[Rational[1, 16] Pi],
         2^Rational[-1, 2]}, {0, -2^Rational[-1, 2], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Sin[Rational[1, 16] Pi], (-2^Rational[-1, 2]) 
        Cos[Rational[1, 16] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Sin[Rational[1, 8] Pi], (-2^Rational[-1, 2]) 
        Cos[Rational[1, 8] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Sin[Rational[3, 16] Pi], (-2^Rational[-1, 2]) 
        Cos[Rational[3, 16] Pi], 2^Rational[-1, 2]}, {
       Rational[1, 2], Rational[-1, 2], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Cos[Rational[3, 16] Pi], (-2^Rational[-1, 2]) 
        Sin[Rational[3, 16] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Cos[Rational[1, 8] Pi], (-2^Rational[-1, 2]) 
        Sin[Rational[1, 8] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2] Cos[Rational[1, 16] Pi], (-2^Rational[-1, 2]) 
        Sin[Rational[1, 16] Pi], 2^Rational[-1, 2]}, {
       2^Rational[-1, 2], 0, 2^Rational[-1, 2]}, {
       Cos[Rational[3, 16] Pi], 0, Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Cos[Rational[3, 16] Pi], 
        Cos[Rational[3, 16] Pi] Sin[Rational[1, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {
       Cos[Rational[1, 8] Pi] Cos[Rational[3, 16] Pi], 
        Cos[Rational[3, 16] Pi] Sin[Rational[1, 8] Pi], Sin[
        Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi]^2, Cos[Rational[3, 16] Pi] 
        Sin[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       2^Rational[-1, 2] Cos[Rational[3, 16] Pi], 2^Rational[-1, 2] 
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[3, 16] Pi], 
        Cos[Rational[3, 16] Pi]^2, Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi] 
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[1, 16] Pi], 
        Cos[Rational[1, 16] Pi] Cos[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {
       0, Cos[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 16] Pi], Cos[Rational[1, 16] Pi] 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi] 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi]^2, Sin[
        Rational[3, 16] Pi]}, {(-2^Rational[-1, 2]) Cos[Rational[3, 16] Pi], 
        2^Rational[-1, 2] Cos[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {-Cos[Rational[3, 16] Pi]^2, 
        Cos[Rational[3, 16] Pi] Sin[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi] 
        Sin[Rational[1, 8] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi] 
        Sin[Rational[1, 16] Pi], Sin[Rational[3, 16] Pi]}, {-
        Cos[Rational[3, 16] Pi], 0, Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[3, 16] Pi]}, {-
        Cos[Rational[3, 16] Pi]^2, (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-2^Rational[-1, 2]) 
        Cos[Rational[3, 16] Pi], (-2^Rational[-1, 2]) Cos[Rational[3, 16] Pi],
         Sin[Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], -Cos[Rational[3, 16] Pi]^2, Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], (-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[3, 16] Pi]}, {(-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       0, -Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] 
        Sin[Rational[1, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] 
        Sin[Rational[1, 8] Pi], (-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi] Sin[Rational[3, 16] Pi], -
        Cos[Rational[3, 16] Pi]^2, Sin[Rational[3, 16] Pi]}, {
       2^Rational[-1, 2] Cos[Rational[3, 16] Pi], (-2^Rational[-1, 2]) 
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi]^2, (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 8] Pi] 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[3, 16] Pi]) 
        Sin[Rational[1, 16] Pi], Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[3, 16] Pi], 0, Sin[Rational[3, 16] Pi]}, {
       Cos[Rational[1, 8] Pi], 0, Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 16] Pi] Cos[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi]^2, Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Cos[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi]}, {
       2^Rational[-1, 2] Cos[Rational[1, 8] Pi], 2^Rational[-1, 2] 
        Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi] 
        Cos[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[1, 8] Pi], 
        Cos[Rational[1, 8] Pi]^2, Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[1, 16] Pi], 
        Cos[Rational[1, 16] Pi] Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 8] Pi]}, {
       0, Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 16] Pi], Cos[Rational[1, 16] Pi] 
        Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi]^2, Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi] 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[1, 8] Pi]}, {(-2^Rational[-1, 2]) Cos[Rational[1, 8] Pi], 
        2^Rational[-1, 2] Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], Cos[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi]}, {-
        Cos[Rational[1, 8] Pi]^2, Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 8] Pi], Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 8] Pi]}, {-
        Cos[Rational[1, 8] Pi], 0, Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 8] Pi]}, {-
        Cos[Rational[1, 8] Pi]^2, (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[
        Rational[1, 8] Pi]}, {(-2^Rational[-1, 2]) 
        Cos[Rational[1, 8] Pi], (-2^Rational[-1, 2]) Cos[Rational[1, 8] Pi], 
        Sin[Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], -Cos[Rational[1, 8] Pi]^2, Sin[
        Rational[1, 8] Pi]}, {(-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       0, -Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] 
        Sin[Rational[1, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] Sin[Rational[1, 8] Pi], -
        Cos[Rational[1, 8] Pi]^2, Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 8] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi]}, {
       2^Rational[-1, 2] Cos[Rational[1, 8] Pi], (-2^Rational[-1, 2]) 
        Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi] 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi]^2, (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Cos[Rational[1, 8] Pi], (-Cos[Rational[1, 8] Pi]) 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 8] Pi], 0, Sin[Rational[1, 8] Pi]}, {
       Cos[Rational[1, 16] Pi], 0, Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi]^2, Cos[Rational[1, 16] Pi] 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Cos[Rational[1, 8] Pi], 
        Cos[Rational[1, 16] Pi] Sin[Rational[1, 8] Pi], Sin[
        Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Cos[Rational[3, 16] Pi], 
        Cos[Rational[1, 16] Pi] Sin[Rational[3, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {
       2^Rational[-1, 2] Cos[Rational[1, 16] Pi], 2^Rational[-1, 2] 
        Cos[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Sin[Rational[3, 16] Pi], 
        Cos[Rational[1, 16] Pi] Cos[Rational[3, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Sin[Rational[1, 8] Pi], 
        Cos[Rational[1, 16] Pi] Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Sin[Rational[1, 16] Pi], 
        Cos[Rational[1, 16] Pi]^2, Sin[Rational[1, 16] Pi]}, {
       0, Cos[Rational[1, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 16] Pi], Cos[Rational[1, 16] Pi]^2, Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 16] Pi] 
        Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Cos[Rational[1, 16] Pi] 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-2^Rational[-1, 2]) Cos[Rational[1, 16] Pi], 
        2^Rational[-1, 2] Cos[Rational[1, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], Cos[Rational[1, 16] Pi] 
        Sin[Rational[3, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], Cos[Rational[1, 16] Pi] 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 16] Pi]}, {-
        Cos[Rational[1, 16] Pi]^2, Cos[Rational[1, 16] Pi] 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi]}, {-
        Cos[Rational[1, 16] Pi], 0, Sin[Rational[1, 16] Pi]}, {-
        Cos[Rational[1, 16] Pi]^2, (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-2^Rational[-1, 2]) 
        Cos[Rational[1, 16] Pi], (-2^Rational[-1, 2]) Cos[Rational[1, 16] Pi],
         Sin[Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], Sin[
        Rational[1, 16] Pi]}, {(-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 16] Pi], -Cos[Rational[1, 16] Pi]^2, Sin[
        Rational[1, 16] Pi]}, {
       0, -Cos[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] Sin[Rational[1, 16] Pi], -
        Cos[Rational[1, 16] Pi]^2, Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Sin[Rational[1, 8] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[1, 8] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Sin[Rational[3, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Cos[Rational[3, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       2^Rational[-1, 2] Cos[Rational[1, 16] Pi], (-2^Rational[-1, 2]) 
        Cos[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Cos[Rational[3, 16] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[3, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi] 
        Cos[Rational[1, 8] Pi], (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 8] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi]^2, (-Cos[Rational[1, 16] Pi]) 
        Sin[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi]}, {
       Cos[Rational[1, 16] Pi], 0, Sin[Rational[1, 16] Pi]}, {1, 0, 0}, {
       Cos[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi], 0}, {
       Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi], 0}, {
       Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi], 0}, {
       2^Rational[-1, 2], 2^Rational[-1, 2], 0}, {
       Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi], 0}, {
       Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi], 0}, {
       Sin[Rational[1, 16] Pi], Cos[Rational[1, 16] Pi], 0}, {0, 1, 
       0}, {-Sin[Rational[1, 16] Pi], Cos[Rational[1, 16] Pi], 0}, {-
        Sin[Rational[1, 8] Pi], Cos[Rational[1, 8] Pi], 0}, {-
        Sin[Rational[3, 16] Pi], Cos[Rational[3, 16] Pi], 
        0}, {-2^Rational[-1, 2], 2^Rational[-1, 2], 0}, {-
        Cos[Rational[3, 16] Pi], Sin[Rational[3, 16] Pi], 0}, {-
        Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi], 0}, {-
        Cos[Rational[1, 16] Pi], Sin[Rational[1, 16] Pi], 0}, {-1, 0, 
       0}, {-Cos[Rational[1, 16] Pi], -Sin[Rational[1, 16] Pi], 0}, {-
        Cos[Rational[1, 8] Pi], -Sin[Rational[1, 8] Pi], 0}, {-
        Cos[Rational[3, 16] Pi], -Sin[Rational[3, 16] Pi], 
        0}, {-2^Rational[-1, 2], -2^Rational[-1, 2], 0}, {-
        Sin[Rational[3, 16] Pi], -Cos[Rational[3, 16] Pi], 0}, {-
        Sin[Rational[1, 8] Pi], -Cos[Rational[1, 8] Pi], 0}, {-
        Sin[Rational[1, 16] Pi], -Cos[Rational[1, 16] Pi], 0}, {0, -1, 0}, {
       Sin[Rational[1, 16] Pi], -Cos[Rational[1, 16] Pi], 0}, {
       Sin[Rational[1, 8] Pi], -Cos[Rational[1, 8] Pi], 0}, {
       Sin[Rational[3, 16] Pi], -Cos[Rational[3, 16] Pi], 0}, {
       2^Rational[-1, 2], -2^Rational[-1, 2], 0}, {
       Cos[Rational[3, 16] Pi], -Sin[Rational[3, 16] Pi], 0}, {
       Cos[Rational[1, 8] Pi], -Sin[Rational[1, 8] Pi], 0}, {
       Cos[Rational[1, 16] Pi], -Sin[Rational[1, 16] Pi], 0}, {1, 0, 0}}, {{
       0.3826834323650898, 0, 0.9238795325112867}, {0.37533027751786524`, 
       0.0746578340503426, 0.9238795325112867}, {0.3535533905932738, 
       0.14644660940672624`, 0.9238795325112867}, {0.31818964514320847`, 
       0.2126075236918141, 0.9238795325112867}, {0.27059805007309845`, 
       0.27059805007309845`, 0.9238795325112867}, {0.2126075236918141, 
       0.31818964514320847`, 0.9238795325112867}, {0.14644660940672624`, 
       0.3535533905932738, 0.9238795325112867}, {0.0746578340503426, 
       0.37533027751786524`, 0.9238795325112867}, {
       0, 0.3826834323650898, 0.9238795325112867}, {-0.0746578340503426, 
       0.37533027751786524`, 0.9238795325112867}, {-0.14644660940672624`, 
       0.3535533905932738, 0.9238795325112867}, {-0.2126075236918141, 
       0.31818964514320847`, 0.9238795325112867}, {-0.27059805007309845`, 
       0.27059805007309845`, 0.9238795325112867}, {-0.31818964514320847`, 
       0.2126075236918141, 0.9238795325112867}, {-0.3535533905932738, 
       0.14644660940672624`, 0.9238795325112867}, {-0.37533027751786524`, 
       0.0746578340503426, 
       0.9238795325112867}, {-0.3826834323650898, 0, 
        0.9238795325112867}, {-0.37533027751786524`, -0.0746578340503426, 
       0.9238795325112867}, {-0.3535533905932738, -0.14644660940672624`, 
       0.9238795325112867}, {-0.31818964514320847`, -0.2126075236918141, 
       0.9238795325112867}, {-0.27059805007309845`, -0.27059805007309845`, 
       0.9238795325112867}, {-0.2126075236918141, -0.31818964514320847`, 
       0.9238795325112867}, {-0.14644660940672624`, -0.3535533905932738, 
       0.9238795325112867}, {-0.0746578340503426, -0.37533027751786524`, 
       0.9238795325112867}, {0, -0.3826834323650898, 0.9238795325112867}, {
       0.0746578340503426, -0.37533027751786524`, 0.9238795325112867}, {
       0.14644660940672624`, -0.3535533905932738, 0.9238795325112867}, {
       0.2126075236918141, -0.31818964514320847`, 0.9238795325112867}, {
       0.27059805007309845`, -0.27059805007309845`, 0.9238795325112867}, {
       0.31818964514320847`, -0.2126075236918141, 0.9238795325112867}, {
       0.3535533905932738, -0.14644660940672624`, 0.9238795325112867}, {
       0.37533027751786524`, -0.0746578340503426, 0.9238795325112867}, {
       0.3826834323650898, 0, 0.9238795325112867}, {
       0.5555702330196022, 0, 0.8314696123025452}, {0.5448951067758185, 
       0.1083863756623696, 0.8314696123025452}, {0.5132799671593367, 
       0.2126075236918141, 0.8314696123025452}, {0.4619397662556433, 
       0.3086582838174551, 0.8314696123025452}, {0.392847479193551, 
       0.392847479193551, 0.8314696123025452}, {0.3086582838174551, 
       0.4619397662556433, 0.8314696123025452}, {0.2126075236918141, 
       0.5132799671593367, 0.8314696123025452}, {0.1083863756623696, 
       0.5448951067758185, 0.8314696123025452}, {
       0, 0.5555702330196022, 0.8314696123025452}, {-0.1083863756623696, 
       0.5448951067758185, 0.8314696123025452}, {-0.2126075236918141, 
       0.5132799671593367, 0.8314696123025452}, {-0.3086582838174551, 
       0.4619397662556433, 0.8314696123025452}, {-0.392847479193551, 
       0.392847479193551, 0.8314696123025452}, {-0.4619397662556433, 
       0.3086582838174551, 0.8314696123025452}, {-0.5132799671593367, 
       0.2126075236918141, 0.8314696123025452}, {-0.5448951067758185, 
       0.1083863756623696, 
       0.8314696123025452}, {-0.5555702330196022, 0, 
        0.8314696123025452}, {-0.5448951067758185, -0.1083863756623696, 
       0.8314696123025452}, {-0.5132799671593367, -0.2126075236918141, 
       0.8314696123025452}, {-0.4619397662556433, -0.3086582838174551, 
       0.8314696123025452}, {-0.392847479193551, -0.392847479193551, 
       0.8314696123025452}, {-0.3086582838174551, -0.4619397662556433, 
       0.8314696123025452}, {-0.2126075236918141, -0.5132799671593367, 
       0.8314696123025452}, {-0.1083863756623696, -0.5448951067758185, 
       0.8314696123025452}, {0, -0.5555702330196022, 0.8314696123025452}, {
       0.1083863756623696, -0.5448951067758185, 0.8314696123025452}, {
       0.2126075236918141, -0.5132799671593367, 0.8314696123025452}, {
       0.3086582838174551, -0.4619397662556433, 0.8314696123025452}, {
       0.392847479193551, -0.392847479193551, 0.8314696123025452}, {
       0.4619397662556433, -0.3086582838174551, 0.8314696123025452}, {
       0.5132799671593367, -0.2126075236918141, 0.8314696123025452}, {
       0.5448951067758185, -0.1083863756623696, 0.8314696123025452}, {
       0.5555702330196022, 0, 0.8314696123025452}, {
       0.7071067811865475, 0, 0.7071067811865475}, {0.6935199226610737, 
       0.13794968964147147`, 0.7071067811865475}, {0.6532814824381882, 
       0.27059805007309845`, 0.7071067811865475}, {0.5879378012096793, 
       0.392847479193551, 0.7071067811865475}, {0.5, 0.5, 
       0.7071067811865475}, {0.392847479193551, 0.5879378012096793, 
       0.7071067811865475}, {0.27059805007309845`, 0.6532814824381882, 
       0.7071067811865475}, {0.13794968964147147`, 0.6935199226610737, 
       0.7071067811865475}, {
       0, 0.7071067811865475, 0.7071067811865475}, {-0.13794968964147147`, 
       0.6935199226610737, 0.7071067811865475}, {-0.27059805007309845`, 
       0.6532814824381882, 0.7071067811865475}, {-0.392847479193551, 
       0.5879378012096793, 0.7071067811865475}, {-0.5, 0.5, 
       0.7071067811865475}, {-0.5879378012096793, 0.392847479193551, 
       0.7071067811865475}, {-0.6532814824381882, 0.27059805007309845`, 
       0.7071067811865475}, {-0.6935199226610737, 0.13794968964147147`, 
       0.7071067811865475}, {-0.7071067811865475, 0, 
        0.7071067811865475}, {-0.6935199226610737, -0.13794968964147147`, 
       0.7071067811865475}, {-0.6532814824381882, -0.27059805007309845`, 
       0.7071067811865475}, {-0.5879378012096793, -0.392847479193551, 
       0.7071067811865475}, {-0.5, -0.5, 
       0.7071067811865475}, {-0.392847479193551, -0.5879378012096793, 
       0.7071067811865475}, {-0.27059805007309845`, -0.6532814824381882, 
       0.7071067811865475}, {-0.13794968964147147`, -0.6935199226610737, 
       0.7071067811865475}, {0, -0.7071067811865475, 0.7071067811865475}, {
       0.13794968964147147`, -0.6935199226610737, 0.7071067811865475}, {
       0.27059805007309845`, -0.6532814824381882, 0.7071067811865475}, {
       0.392847479193551, -0.5879378012096793, 0.7071067811865475}, {
       0.5, -0.5, 0.7071067811865475}, {
       0.5879378012096793, -0.392847479193551, 0.7071067811865475}, {
       0.6532814824381882, -0.27059805007309845`, 0.7071067811865475}, {
       0.6935199226610737, -0.13794968964147147`, 0.7071067811865475}, {
       0.7071067811865475, 0, 0.7071067811865475}, {
       0.8314696123025452, 0, 0.5555702330196022}, {0.8154931568489171, 
       0.16221167441072887`, 0.5555702330196022}, {0.7681777567114163, 
       0.31818964514320847`, 0.5555702330196022}, {0.6913417161825449, 
       0.4619397662556433, 0.5555702330196022}, {0.5879378012096793, 
       0.5879378012096793, 0.5555702330196022}, {0.4619397662556433, 
       0.6913417161825449, 0.5555702330196022}, {0.31818964514320847`, 
       0.7681777567114163, 0.5555702330196022}, {0.16221167441072887`, 
       0.8154931568489171, 0.5555702330196022}, {
       0, 0.8314696123025452, 0.5555702330196022}, {-0.16221167441072887`, 
       0.8154931568489171, 0.5555702330196022}, {-0.31818964514320847`, 
       0.7681777567114163, 0.5555702330196022}, {-0.4619397662556433, 
       0.6913417161825449, 0.5555702330196022}, {-0.5879378012096793, 
       0.5879378012096793, 0.5555702330196022}, {-0.6913417161825449, 
       0.4619397662556433, 0.5555702330196022}, {-0.7681777567114163, 
       0.31818964514320847`, 0.5555702330196022}, {-0.8154931568489171, 
       0.16221167441072887`, 
       0.5555702330196022}, {-0.8314696123025452, 0, 
        0.5555702330196022}, {-0.8154931568489171, -0.16221167441072887`, 
       0.5555702330196022}, {-0.7681777567114163, -0.31818964514320847`, 
       0.5555702330196022}, {-0.6913417161825449, -0.4619397662556433, 
       0.5555702330196022}, {-0.5879378012096793, -0.5879378012096793, 
       0.5555702330196022}, {-0.4619397662556433, -0.6913417161825449, 
       0.5555702330196022}, {-0.31818964514320847`, -0.7681777567114163, 
       0.5555702330196022}, {-0.16221167441072887`, -0.8154931568489171, 
       0.5555702330196022}, {0, -0.8314696123025452, 0.5555702330196022}, {
       0.16221167441072887`, -0.8154931568489171, 0.5555702330196022}, {
       0.31818964514320847`, -0.7681777567114163, 0.5555702330196022}, {
       0.4619397662556433, -0.6913417161825449, 0.5555702330196022}, {
       0.5879378012096793, -0.5879378012096793, 0.5555702330196022}, {
       0.6913417161825449, -0.4619397662556433, 0.5555702330196022}, {
       0.7681777567114163, -0.31818964514320847`, 0.5555702330196022}, {
       0.8154931568489171, -0.16221167441072887`, 0.5555702330196022}, {
       0.8314696123025452, 0, 0.5555702330196022}, {
       0.9238795325112867, 0, 0.3826834323650898}, {0.9061274463528878, 
       0.18023995550173696`, 0.3826834323650898}, {0.8535533905932737, 
       0.3535533905932738, 0.3826834323650898}, {0.7681777567114163, 
       0.5132799671593367, 0.3826834323650898}, {0.6532814824381882, 
       0.6532814824381882, 0.3826834323650898}, {0.5132799671593367, 
       0.7681777567114163, 0.3826834323650898}, {0.3535533905932738, 
       0.8535533905932737, 0.3826834323650898}, {0.18023995550173696`, 
       0.9061274463528878, 0.3826834323650898}, {
       0, 0.9238795325112867, 0.3826834323650898}, {-0.18023995550173696`, 
       0.9061274463528878, 0.3826834323650898}, {-0.3535533905932738, 
       0.8535533905932737, 0.3826834323650898}, {-0.5132799671593367, 
       0.7681777567114163, 0.3826834323650898}, {-0.6532814824381882, 
       0.6532814824381882, 0.3826834323650898}, {-0.7681777567114163, 
       0.5132799671593367, 0.3826834323650898}, {-0.8535533905932737, 
       0.3535533905932738, 0.3826834323650898}, {-0.9061274463528878, 
       0.18023995550173696`, 
       0.3826834323650898}, {-0.9238795325112867, 0, 
        0.3826834323650898}, {-0.9061274463528878, -0.18023995550173696`, 
       0.3826834323650898}, {-0.8535533905932737, -0.3535533905932738, 
       0.3826834323650898}, {-0.7681777567114163, -0.5132799671593367, 
       0.3826834323650898}, {-0.6532814824381882, -0.6532814824381882, 
       0.3826834323650898}, {-0.5132799671593367, -0.7681777567114163, 
       0.3826834323650898}, {-0.3535533905932738, -0.8535533905932737, 
       0.3826834323650898}, {-0.18023995550173696`, -0.9061274463528878, 
       0.3826834323650898}, {0, -0.9238795325112867, 0.3826834323650898}, {
       0.18023995550173696`, -0.9061274463528878, 0.3826834323650898}, {
       0.3535533905932738, -0.8535533905932737, 0.3826834323650898}, {
       0.5132799671593367, -0.7681777567114163, 0.3826834323650898}, {
       0.6532814824381882, -0.6532814824381882, 0.3826834323650898}, {
       0.7681777567114163, -0.5132799671593367, 0.3826834323650898}, {
       0.8535533905932737, -0.3535533905932738, 0.3826834323650898}, {
       0.9061274463528878, -0.18023995550173696`, 0.3826834323650898}, {
       0.9238795325112867, 0, 0.3826834323650898}, {
       0.9807852804032304, 0, 0.19509032201612825`}, {0.9619397662556434, 
       0.19134171618254486`, 0.19509032201612825`}, {0.9061274463528878, 
       0.37533027751786524`, 0.19509032201612825`}, {0.8154931568489171, 
       0.5448951067758185, 0.19509032201612825`}, {0.6935199226610737, 
       0.6935199226610737, 0.19509032201612825`}, {0.5448951067758185, 
       0.8154931568489171, 0.19509032201612825`}, {0.37533027751786524`, 
       0.9061274463528878, 0.19509032201612825`}, {0.19134171618254486`, 
       0.9619397662556434, 0.19509032201612825`}, {
       0, 0.9807852804032304, 0.19509032201612825`}, {-0.19134171618254486`, 
       0.9619397662556434, 0.19509032201612825`}, {-0.37533027751786524`, 
       0.9061274463528878, 0.19509032201612825`}, {-0.5448951067758185, 
       0.8154931568489171, 0.19509032201612825`}, {-0.6935199226610737, 
       0.6935199226610737, 0.19509032201612825`}, {-0.8154931568489171, 
       0.5448951067758185, 0.19509032201612825`}, {-0.9061274463528878, 
       0.37533027751786524`, 0.19509032201612825`}, {-0.9619397662556434, 
       0.19134171618254486`, 
       0.19509032201612825`}, {-0.9807852804032304, 0, 
        0.19509032201612825`}, {-0.9619397662556434, -0.19134171618254486`, 
       0.19509032201612825`}, {-0.9061274463528878, -0.37533027751786524`, 
       0.19509032201612825`}, {-0.8154931568489171, -0.5448951067758185, 
       0.19509032201612825`}, {-0.6935199226610737, -0.6935199226610737, 
       0.19509032201612825`}, {-0.5448951067758185, -0.8154931568489171, 
       0.19509032201612825`}, {-0.37533027751786524`, -0.9061274463528878, 
       0.19509032201612825`}, {-0.19134171618254486`, -0.9619397662556434, 
       0.19509032201612825`}, {
       0, -0.9807852804032304, 0.19509032201612825`}, {
       0.19134171618254486`, -0.9619397662556434, 0.19509032201612825`}, {
       0.37533027751786524`, -0.9061274463528878, 0.19509032201612825`}, {
       0.5448951067758185, -0.8154931568489171, 0.19509032201612825`}, {
       0.6935199226610737, -0.6935199226610737, 0.19509032201612825`}, {
       0.8154931568489171, -0.5448951067758185, 0.19509032201612825`}, {
       0.9061274463528878, -0.37533027751786524`, 0.19509032201612825`}, {
       0.9619397662556434, -0.19134171618254486`, 0.19509032201612825`}, {
       0.9807852804032304, 0, 0.19509032201612825`}, {1, 0, 0}, {
       0.9807852804032304, 0.19509032201612825`, 0}, {
       0.9238795325112867, 0.3826834323650898, 0}, {
       0.8314696123025452, 0.5555702330196022, 0}, {
       0.7071067811865475, 0.7071067811865475, 0}, {
       0.5555702330196022, 0.8314696123025452, 0}, {
       0.3826834323650898, 0.9238795325112867, 0}, {
       0.19509032201612825`, 0.9807852804032304, 0}, {0, 1, 
       0}, {-0.19509032201612825`, 0.9807852804032304, 
        0}, {-0.3826834323650898, 0.9238795325112867, 
        0}, {-0.5555702330196022, 0.8314696123025452, 
        0}, {-0.7071067811865475, 0.7071067811865475, 
        0}, {-0.8314696123025452, 0.5555702330196022, 
        0}, {-0.9238795325112867, 0.3826834323650898, 
        0}, {-0.9807852804032304, 0.19509032201612825`, 0}, {-1, 0, 
       0}, {-0.9807852804032304, -0.19509032201612825`, 
        0}, {-0.9238795325112867, -0.3826834323650898, 
        0}, {-0.8314696123025452, -0.5555702330196022, 
        0}, {-0.7071067811865475, -0.7071067811865475, 
        0}, {-0.5555702330196022, -0.8314696123025452, 
        0}, {-0.3826834323650898, -0.9238795325112867, 
        0}, {-0.19509032201612825`, -0.9807852804032304, 0}, {0, -1, 0}, {
       0.19509032201612825`, -0.9807852804032304, 0}, {
       0.3826834323650898, -0.9238795325112867, 0}, {
       0.5555702330196022, -0.8314696123025452, 0}, {
       0.7071067811865475, -0.7071067811865475, 0}, {
       0.8314696123025452, -0.5555702330196022, 0}, {
       0.9238795325112867, -0.3826834323650898, 0}, {
       0.9807852804032304, -0.19509032201612825`, 0}, {1, 0, 0}}]]}},
  Boxed->False]], "Output",
 CellLabel->"Out[3]=",
 CellID->384411522,ExpressionUUID->"784853da-85c1-4c44-abfa-b1cc6862b545"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "55cc49a6-9121-43c5-97dd-72cd8179c7ad"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->223730839,ExpressionUUID->"c3b4b784-5913-438b-87c4-4a7520898369"],

Cell["\<\
Complex meshes can be created as long as shape can be topologically mapped to \
a cube.\
\>", "ExampleText",
 CellID->497245590,ExpressionUUID->"ed97175e-dd88-48a1-ba06-54412202ebde"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{
    RowBox[{"First", "@", 
     RowBox[{"Hexahedron", "[", "]"}]}], "+", 
    RowBox[{"RandomReal", "[", 
     RowBox[{
      RowBox[{"0.2", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "3"}], "}"}]}], "]"}]}]}], ";"}], "\n", 
 RowBox[{"Graphics3D", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Hexahedron", "[", "pts", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"MapIndexed", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"#2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "Red"}], "]"}], ",", "#1", 
         ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}]}], "]"}], "&"}], ",", "pts"}], 
     "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->779272399,ExpressionUUID->"3e125fa9-a128-40ec-a07f-10e013357321"],

Cell[BoxData[
 Graphics3DBox[{
   HexahedronBox[{{-0.1700680709065337, 0.004635969584251942, 
    0.08720535094936754}, {1.016500092822743, 
    0.19461863727517492`, -0.0006505419892318676}, {1.1548464721816316`, 
    1.1978303919943567`, -0.022720707316537858`}, {0.14080657292410725`, 
    1.115621991159798, 
    0.1850167490473109}, {-0.09175168811736278, -0.019398009457341048`, 
    1.0206082438056805`}, {1.0503698426983061`, -0.02612361385011175, 
    0.8218759989190221}, {1.1665281417373465`, 1.1659129162290638`, 
    0.830262727666033}, {0.18380691065144505`, 0.9248809660638785, 
    0.9272659781240512}}], {Text3DBox[
     FormBox[
      StyleBox["1",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {-0.1700680709065337, 
     0.004635969584251942, 0.08720535094936754}, {3, 0}], Text3DBox[
     FormBox[
      StyleBox["2",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {1.016500092822743, 
     0.19461863727517492`, -0.0006505419892318676}, {3, 0}], Text3DBox[
     FormBox[
      StyleBox["3",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {1.1548464721816316`, 
     1.1978303919943567`, -0.022720707316537858`}, {3, 0}], Text3DBox[
     FormBox[
      StyleBox["4",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {0.14080657292410725`, 
     1.115621991159798, 0.1850167490473109}, {3, 0}], Text3DBox[
     FormBox[
      StyleBox["5",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], 
      StandardForm], {-0.09175168811736278, -0.019398009457341048`, 
     1.0206082438056805`}, {3, 0}], Text3DBox[
     FormBox[
      StyleBox["6",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {
     1.0503698426983061`, -0.02612361385011175, 0.8218759989190221}, {3, 0}], 
    Text3DBox[
     FormBox[
      StyleBox["7",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {1.1665281417373465`, 
     1.1659129162290638`, 0.830262727666033}, {3, 0}], Text3DBox[
     FormBox[
      StyleBox["8",
       StripOnInput->False,
       LineColor->RGBColor[1, 0, 0],
       FrontFaceColor->RGBColor[1, 0, 0],
       BackFaceColor->RGBColor[1, 0, 0],
       GraphicsColor->RGBColor[1, 0, 0],
       FontColor->RGBColor[1, 0, 0]], StandardForm], {0.18380691065144505`, 
     0.9248809660638785, 0.9272659781240512}, {3, 0}]}}]], "Output",
 CellLabel->"Out[2]=",
 CellID->1187055,ExpressionUUID->"fbc92fdf-a562-406d-bcee-5e4f71b7a40b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"pts", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"pts", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"pts", "[", 
          RowBox[{"[", "4", "]"}], "]"}], ",", 
         RowBox[{"pts", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"pts", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", 
         RowBox[{"pts", "[", 
          RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"pts", "[", 
          RowBox[{"[", "8", "]"}], "]"}], ",", 
         RowBox[{"pts", "[", 
          RowBox[{"[", "7", "]"}], "]"}]}], "}"}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "3", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mesh", "[", 
  RowBox[{"\"\<Wireframe\>\"", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\"\<MeshElementStyle\>\"", "\[Rule]", 
     RowBox[{"FaceForm", "[", "LightBlue", "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}], "]"}]}], "Input",
 CellLabel->"In[3]:=",
 CellID->798070886,ExpressionUUID->"b7b5e56a-08c1-4c1f-8f56-68743c26a713"],

Cell[BoxData[
 Graphics3DBox[
  {EdgeForm[GrayLevel[0]], FaceForm[None, None], 
   GraphicsComplex3DBox[CompressedData["
1:eJwNzHk41AkAxvEhtvVQUdulkJDyKFpFT+RVEU8XplG2pVy1jiKUcdWOFvVk
MwwqV40t5SrTE1nCbxwhcgwyjSvXZMwY5lilHK0/vs/7PO8fH12vIPIFRRKJ
ZLXUsqU80pw9m+vfEiT/xUyjhRB0aLkrrj/1GvtWZ+c/q2ETJCtOKN3yBvHL
g3Aio3wY6tqcUZXrZQRzn8Bj9UAKYdFAdvSjSOBBoVUHKL4k1t01KQn4wYUN
y32xvbAapC0lB5vnmARlel7HKfQDynMKO0uIYZBsOKbyOE0wnJsT9ox3wu9u
Qu50/jRISnYJkSqPcSjp67lg3jhcdU2u296sg4dSvEbcLRZak8esG4v5cC8c
5Le9HQY73m/g+J0yuKZwtLXiR+GTGFykVjgF06IRfblyLRaKRMH3eFIk+ZvM
MV80wkNNnkNtqMesC99cTpZAsVTjm6BlGEmXlunMxzdifKHq66MHYpynn3m1
o0gMJn3MP8WMDVZPfegPVgGOXMspznvFQiXjUlgerR7MprJMw/d0TGhs8tZL
HcJQ2n8xVa1N+DjGOcZNSyOMZg6yOBrTYN6+IFZhtuCcqfrW4LBeNO9u2FB4
/TUk5SHaxtbtaFghvWpylIvYwb22qktO1gxhaBjIwU4Rp1Gs1Y32L2QDT9cp
dNjILWziuyAf6TLybBHgxJQw5rl9JZKuWI1yF7rxZNfNnsXmz9ApdDKQpwzB
iRmXGHStBy6RpjezmsdwbdY7Q/JQDHKVWUSUFQ/9PY4j9Ttl8P1wa4b7cw22
x6Is3a0Xv4rsvoXMSlBBDfipb8mZP3pspiy6D2t+ULccip+G5verq2j8STid
vZs5u7YP6hKlZuOYcoSnt5Rf3f4UHzdZHose7keH6unKuOePEb0+aoXrwCC8
BgTffxQNQj35jXnWyfsE332wpiNSjIps5YEnQ5+Q2yWhh4n7kXvR/aLaoyJ8
e0h51fliCBbG/HcrdXlgmtMC6joGsSZo2yz58jCaYnnLnlE+YK+HZm7nT2Ik
S6zpeS4jeLKX9cWpagLCdKpK552XUGKpHhyfHEFki06g+edx1LrEvdtVPwhq
0EeZQewoyJ50/qZVnxHvdfp2N2MSR1bPFS9WjKGCVEKWx8hAo7E/aTWUQL2m
tm3OiI/LtKdvZNlSfL56xzCjbBC8oDvi2Qw+tpDS9WXlEvT4MAJ6tCfha97N
XqMyDp+KNeLJ7lo0JeVtN+1Kw46vj3aSa8YRblCdrOBbDENVNsWP0Q9hWUBG
UoQADgdydT2XpxPMhsiu9lERGJZFnv/MCjAZxlmI8vmEK11u5nFxDxBGVzuv
mTiBvKM87amvvbBgpZ68EtEP19FLbgw9Iby1h+GR0IPMd8P6tqUiVNjEKu4W
CEG5/XetTbEQG9dp2PZaZIJtGJE0clYEZ98q5UCFCdi7+DlQPfrRsDJQO7VV
BEeHKYfMU+O4994h7N94EUbt3B4T3EmkG22o0+2Rge361tlEmA01Nr+mwFCM
vLXLb4QcluHM9wOHbtj3Y8/+oKE0qhivSV/21bGkSG4vbjR2FaH7kyQ97bAE
7Hn9a4cnmkAyrnXQd7YjzEw5mvLbEiTppLyyTi4FZ1EpK9K+Fwzay0ynNglo
E4lq29gZhJvJen7bcSH0uv2NIkhSaK7glbLFQ+g+rsjefJFGfIOX8kvzpd+v
NbS1rR9tO/J3a23tRVvhb0OCS1IslgmiNtZyoWCW/6TUW4jgprEKtyoplPt8
E01zRBCGhVsaUulEtaN8OnBMiu3Kv2fnbhaihXKikZjnQZWrYBCjKsNxkxNF
mg8EeGZu6ZMVKQS78twxm0gZwinRZk5GctCcqH0bbO8Tsedje40ZMowU/GEj
E8jQ9KfUzYvLg71igd/GgiVH4dSJ1GdLu79V769kIf4HLzPyMw==
    "], 
    {FaceForm[RGBColor[0.87, 0.94, 1]], 
     Polygon3DBox[{{1, 13, 16, 4}, {1, 2, 14, 13}, {4, 5, 2, 1}, {6, 18, 15, 
      3}, {2, 3, 15, 14}, {5, 6, 3, 2}, {4, 16, 19, 7}, {7, 8, 5, 4}, {9, 21, 
      18, 6}, {8, 9, 6, 5}, {7, 19, 22, 10}, {22, 23, 11, 10}, {10, 11, 8, 
      7}, {12, 24, 21, 9}, {23, 24, 12, 11}, {11, 12, 9, 8}, {13, 25, 28, 
      16}, {13, 14, 26, 25}, {18, 30, 27, 15}, {14, 15, 27, 26}, {16, 28, 31, 
      19}, {21, 33, 30, 18}, {19, 31, 34, 22}, {34, 35, 23, 22}, {24, 36, 33, 
      21}, {35, 36, 24, 23}, {25, 37, 40, 28}, {25, 26, 38, 37}, {30, 42, 39, 
      27}, {26, 27, 39, 38}, {28, 40, 43, 31}, {33, 45, 42, 30}, {31, 43, 46, 
      34}, {46, 47, 35, 34}, {36, 48, 45, 33}, {47, 48, 36, 35}, {37, 49, 52, 
      40}, {37, 38, 50, 49}, {49, 50, 53, 52}, {42, 54, 51, 39}, {38, 39, 51, 
      50}, {50, 51, 54, 53}, {40, 52, 55, 43}, {52, 53, 56, 55}, {45, 57, 54, 
      42}, {53, 54, 57, 56}, {43, 55, 58, 46}, {55, 56, 59, 58}, {58, 59, 47, 
      46}, {48, 60, 57, 45}, {56, 57, 60, 59}, {59, 60, 48, 47}}]}]},
  Axes->True,
  AxesLabel->{
    FormBox["\"X\"", TraditionalForm], 
    FormBox["\"Y\"", TraditionalForm], 
    FormBox["\"Z\"", TraditionalForm]},
  Boxed->False]], "Output",
 CellLabel->"Out[5]=",
 CellID->3140830,ExpressionUUID->"cf4a8586-a9f5-41ac-987e-09cd5f2403ac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "62e0f2be-1053-4d7b-9da9-eb56bddc88ec"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"6809a92e-c221-453e-a693-98ba162376cd"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "4af5751f-3fdd-409b-ab73-6d30fe1d37bf"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"34c03cae-a1de-453f-9e4f-5c3858ad9617"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "InterpolationOrder", "ExampleSubsection",ExpressionUUID->
   "0b0b4fcf-bd87-4149-822c-87f31f2b7906"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"2d056a61-034a-41d4-a153-abdf090a3e2d"],

Cell[TextData[{
 "The ",
 ButtonBox["InterpolationOrder",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/InterpolationOrder"],
 " option controls the order of the interpolation of the raster points. With \
a higher order of interpolation, curved boundaries are described more \
accurately."
}], "ExampleText",
 CellID->534249995,ExpressionUUID->"e18faeea-7d5e-4a2c-8090-b70e58370c56"],

Cell[TextData[{
 "Create a helper function to illustrate the different meshes produced with \
different ",
 ButtonBox["InterpolationOrder",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/InterpolationOrder"],
 "."
}], "ExampleText",
 CellID->1775503447,ExpressionUUID->"f9a806ae-5163-4d30-8e67-d61cd1b709e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compareOrder", "[", "order_", "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "=", "5"}], ",", "raster", ",", "mesh"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"raster", "=", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", 
             RowBox[{"2", "Pi"}], ",", 
             RowBox[{"2", 
              RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", 
             RowBox[{"2", "Pi"}], ",", 
             RowBox[{"2", 
              RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"4", "+", 
              RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", 
             RowBox[{"2", "Pi"}], ",", 
             RowBox[{"2", 
              RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "}"}], "//", "N"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"mesh", "=", 
      RowBox[{"StructuredMesh", "[", 
       RowBox[{"raster", ",", 
        RowBox[{"{", 
         RowBox[{"15", ",", "10"}], "}"}], ",", 
        RowBox[{"InterpolationOrder", "\[Rule]", "order"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
            RowBox[{"Point", "[", 
             RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
            RowBox[{"Line", "[", "raster", "]"}]}], "}"}]}], 
         "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellLabel->"In[1]:=",
 CellID->738571383,ExpressionUUID->"33e31947-431c-4fdd-b5d0-1096c998989d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"compareOrder", "[", "1", "]"}], ",", 
      RowBox[{"compareOrder", "[", "2", "]"}]}], "}"}], "}"}], ",", 
   RowBox[{"ImageSize", "->", "Medium"}]}], "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->298687528,ExpressionUUID->"8102607d-37bc-45ff-93de-e726b3f8a845"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{
       {EdgeForm[GrayLevel[0]], FaceForm[None], 
        GraphicsComplexBox[CompressedData["
1:eJx11gtMU2cUB/DaFuiDdkWrvOegyepUfFAE7Bz3gnVOJ6hYNqVCGFJQdBAs
4ANRURR8DF+rsgoKxscEjWCAGAWLBrCgHYhVHnMdQkEta5WCPFqnE8p3SJvs
JE3zy7n39n+b7373eEQnhoqJBAKh5NNn9Pv/Kve30WrDkGVjfg324Y1Wv1V/
BLO6DG55PAkcFztatmDz+VSw8tFo2YPNxcKbe9P6X//Rjn34xSuaulyFIX/c
vIQbr9WACQ7J+Y033kxY9PiQjP8OvPf6K0FwvnGiP54XmVvVTmGUk8DBO8sd
XOLtwMl+x1240+lg2UA8x0fFBHe0ep4uEDjgqjFrMULOaF4NhuxNv5thR9GB
eYIrTcQuA1i5L7FjUtAQOO6e31tCoQmM8iK7Lt2n7vElg31yyFXKnyng4KcH
z5ZdtAfzxvoscHXpktmBhybjHW/zUue6DmCEMMEUZqIeQ+aFuSY0nzSAe/b8
2uyufweWFTH8Ni0bAZt/7z0Y5UVmPv6qrPoWGexyYc3GjCQqmCtJdwuaybTq
O4ALDm+8/0I5ZTy/EfvimpA59ZgWQ5aoPbZQbPvAz2KdVx+sGQDz37B8yfuH
wfnbKK77At+DLf9fI+Z7QSvhZpHB8YKnL0OYVPD5HrkoVcqw6juAM6UNhZ2r
p+BiiZd/6D0CjpHEVLcbPRiyuHGVapdBD64LPteol/WD23nsBecrh8A658Oy
lWoTGOVFjpQU83LCyODbPT/EuRVTwI7hxLNFBIZVnwXeWDA7o+spWg9kPDI8
hcxp7MSQNS8iml619oIrfDghPyYZwDu3O/rwBwfB31TSXdzTTGDL9UDGDwq2
9A9wyGDaodae10sp4GNKQbt6s71VnwVeUZwTpVk3GQ9PsC+3T7HDM7fnlcxh
12PIe3eHcp41vQB3qNNlBet14MLzquwFyQPgppXxNS58IxjlRV6Zc1Yh2U8C
n3PzO/HS1g78T1HzOtFhGpi/MMGzkcEE13RlphQq0PNHw7ea88rBW9zaGJxG
DDlMWJ578lk3WFF34q95hj5wTJciwWlkGGy5fmm4c2tDvqGTCJ5fIv26u9YG
vCw7qq3ldwr4p6hZ2xqO0ME7/AfZVQlMPGRT7/wHMz7dh3k9yJH5QZ4VO4yl
4FOn2ryohc8xZPWf+TFrO/Tg4VSu87RbQ2CUF7nTw7g1KYgIrl080N2ZSQZf
FuvXCh/YgrOyXj2spVLBm652BvitoOMxY+uZhQeYnzc58qyW59qjG2rBIXN1
3GJjC4bsLr4YnbNGB17qfDW3SzgERnmRaf23vVtZRDC7J0Vc4kEGu7fNy832
tgV/+ai3IWoxBTxPfvlffyEN9/QWt+AJk/HPzfuZHFn6rTBdr2kCMx8SPIOF
TzDkCH1RVE1dL/jMnZlOpX2DYJQX2bsmzRDw9yRwTPaQJv0uCSxdIWmpzLcB
17He1Jt22YGHVfGV/PVov2bj4+8LOXKuB//ANKeWCStn+KtFSgw5b1tppHGh
Fvwy4tqZ3TmDYMv9gY2HSxfdvHR9Erhs5o6Y70UkMKO6fFofxQYcG2ZQnK6w
BVdr56QtiqHg+TdUUz9XTMXH38dyZMVRTmCi5A5YFlbPEbW3Y8i+D3T0+u/0
YGWSKcj75BAY5UUOnq7J2jOXCJYFKD77GEkGm+/XFsxLPz79Q9VEvr15yVfS
dTRcNLZfOI7nVcmRYytW1VdV3seQfTzl0g37u8BxdOnzh7P6wGUHluu7pcNg
lBc58OqRiHWlRHBGqOOdm9E24GrTBSd7NmUiz6U5qeLaiXx4yO0nd1MZuJOX
QGjycIa5DRnNk8honkRG86RlfwSzuh5ueTwJjOZJy/OpYDRPWl6Phf8HFa+p
yA==
         "], PolygonBox[CompressedData["
1:eJwBaQKW/SFib1JiAgAAAJYAAAAEAAAAAQwNAgINDgMDDg8EBA8QBQUQEQYG
ERIHBxITCAgTFAkJFBUKChUWCwwXGA0NGBkODhkaDw8aGxAQGxwRERwdEhId
HhMTHh8UFB8gFRUgIRYXIiMYGCMkGRkkJRoaJSYbGyYnHBwnKB0dKCkeHikq
Hx8qKyAgKywhIi0uIyMuLyQkLzAlJTAxJiYxMicnMjMoKDM0KSk0NSoqNTYr
KzY3LC04OS4uOTovLzo7MDA7PDExPD0yMj0+MzM+PzQ0P0A1NUBBNjZBQjc4
Q0Q5OURFOjpFRjs7Rkc8PEdIPT1IST4+SUo/P0pLQEBLTEFBTE1CQ05PRERP
UEVFUFFGRlFSR0dSU0hIU1RJSVRVSkpVVktLVldMTFdYTU5ZWk9PWltQUFtc
UVFcXVJSXV5TU15fVFRfYFVVYGFWVmFiV1diY1hZZGVaWmVmW1tmZ1xcZ2hd
XWhpXl5pal9famtgYGtsYWFsbWJibW5jZG9wZWVwcWZmcXJnZ3JzaGhzdGlp
dHVqanV2a2t2d2xsd3htbXh5bm96e3Bwe3xxcXx9cnJ9fnNzfn90dH+AdXWA
gXZ2gYJ3d4KDeHiDhHl6hYZ7e4aHfHyHiH19iIl+fomKf3+Ki4CAi4yBgYyN
goKNjoODjo+EhZCRhoaRkoeHkpOIiJOUiYmUlYqKlZaLi5aXjIyXmI2NmJmO
jpmaj5CbnJGRnJ2Skp2ek5Oen5SUn6CVlaChlpahopeXoqOYmKOkmZmkpZqb
pqecnKeonZ2oqZ6eqaqfn6qroKCrrKGhrK2ioq2uo6Our6Skr7Clbh7Rrw==

          "]]]}, {
        {RGBColor[1, 0, 0], PointSize[Medium], 
         PointBox[{{0., 0.}, {1.2566370614359172`, 0.9510565162951535}, {
          2.5132741228718345`, 0.5877852522924731}, {
          3.7699111843077517`, -0.5877852522924731}, {
          5.026548245743669, -0.9510565162951535}, {6.283185307179586, 0.}, {
          0., 2.}, {1.2566370614359172`, 2.}, {2.5132741228718345`, 2.}, {
          3.7699111843077517`, 2.}, {5.026548245743669, 2.}, {
          6.283185307179586, 2.}, {0., 4.}, {1.2566370614359172`, 
          4.951056516295154}, {2.5132741228718345`, 4.587785252292473}, {
          3.7699111843077517`, 3.4122147477075266`}, {5.026548245743669, 
          3.0489434837048464`}, {6.283185307179586, 4.}}]}, 
        {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
         LineBox[{{{0., 0.}, {1.2566370614359172`, 0.9510565162951535}, {
          2.5132741228718345`, 0.5877852522924731}, {
          3.7699111843077517`, -0.5877852522924731}, {
          5.026548245743669, -0.9510565162951535}, {6.283185307179586, 
          0.}}, {{0., 2.}, {1.2566370614359172`, 2.}, {2.5132741228718345`, 
          2.}, {3.7699111843077517`, 2.}, {5.026548245743669, 2.}, {
          6.283185307179586, 2.}}, {{0., 4.}, {1.2566370614359172`, 
          4.951056516295154}, {2.5132741228718345`, 4.587785252292473}, {
          3.7699111843077517`, 3.4122147477075266`}, {5.026548245743669, 
          3.0489434837048464`}, {6.283185307179586, 4.}}}]}}},
      DisplayFunction->Identity,
      ImagePadding->{{0., 1.}, {1., 0.}}], {192., -177.91242902851732}, 
     ImageScaled[{0.5, 0.5}], {360., 338.8808171971759}], InsetBox[
     GraphicsBox[{
       {EdgeForm[GrayLevel[0]], FaceForm[None], 
        GraphicsComplexBox[CompressedData["
1:eJx11gs0VHkcB/DJzQxjMFJaW1QsibxGTlOcuXejbF61tlgUU56T0Eqxi92a
RFTaShKrZJPYc8izrK1ptJTHZKupRlHyNt7jccwk7aL/rzOds79z7rnnc+69
//M99/zu/f9W7Q13C1AgkUg3/ztmz/9X6ZdmqxlHzphzH3id1WyNfXZdin+2
DCF/PwYOCpwtMnj+eWWwoHG2aOD5ohNP+mPG+h69xFNFlgklOa04smEfk3by
m27wKc6WrHXDQ2Bexcp3BXvHwXGy1JNRXVIwyot8vcNirZ4nBl5rtNtRb4YM
ThPEe5GGqeCOp3m7/jJRByfp+BmZvNQghHMW446l5uO7J3tx5IrMxsSc2gHw
zF3/PrrTKFjD9Lw4lDHxyek/OARry8AoL/IBxorkLw9iYHc/rWoskAIuOdeV
VyVSAduxa3WuBtDBnMnjdxt0NYm2kd8Omy8bx0k77TXVwodwZJbk/pUk/RHw
4RCNLAsHCdg4LXlBbM4E2CPCXBBiLQOjvMjnV8w4Lz+KgduXnhNQL1PAQ71V
RxvcaeBddXfWFT2jg7OTg6vfCjQ/5pfhqYzIXyIjBnFkInOHAyd3GPx6ZlPT
bW0JWME0vnpLygRYVRQa52MhA8u/Xxke5qaTe+FnDLytQ81s5DwFnFMizFAn
aGBr9q2JH/l08HcJQ2dcCzWJgIOmTDc+iShLiv8p5lwfjhxB9406ZTwIFg7X
lBkHjYJvxBw36mdNgG+ZDKUlLpeBUV5ku9hWy4JIDJyTrL5n034KWMck7fTD
bhXwq8Lb3roRdPD6s9vDtzFQPywkfLwOLdRvaseRF9nnNcU+7wV7sjJcEsxH
wMu5KVacsnHwjtCb2j1SKVi+HxYSGlmsMU8/DNyimhq4YDUFzHYjeU06qoCv
7DsmYDapg53/SGF3ei4ivMJo5bRDFIJ9x1a0R7UKR5YGfPt1/mArWMuphsR6
LAbLigpNI6PHwI3RTFFfgRSM8iILcrhur2wwcP1X1zrISWSw9Lh/KbdHGexZ
e5/v6qEKnpSwE633o/6gEgZbT298vv0JD7nndLFBHL8BR/b2Kf2Q6dINpho+
4OZGScDb0342rdgnBcv3L5U4M7vcMgz82Nci5YoSGVxPXWmVUasEji4ZDyne
qQJucS9kdpWrEq6cfssHRmrErvl+4CGrFzuyLvml48jHKmYuGgrbwc6dLxjv
i0fBbTVcbecNUjDKi+xRt/ogDcPAkrvMwIZcRbCwjdFs20sBT5tpNbLrlcGc
/HbWemcVwn+un+nECaOgzAPe/Tzk9bFhqzOfVYNbK8vXVB55gyNXGvjcG1AY
Bdu4d04nqkrBKC9y/FmRv/GgAjj/zbu1dq6K4HAx53tHfQr4ebFeD75fCfza
2rBZf40yoccIeEGELSL2PXbP5tgM85AP5NkHqfEbweVxfN6RihYc2TfS1/Bs
6Qi4M99fq1g6BUZ5kT2r0kdZHQrg6YRp3wuGimDxXhMnrJ4M1ttmUHpCQAFf
dxJfNLBU+vj9LSY+7hc85CMmlRe7y+vBv95eKfl9ayuOzPrnlb/4/gi45R4W
+OD9FFj+/7CYeLYlWNuxSwE8ULbxA99MEbzZMao4qIUMfkvWtbAZooDvic1i
bP2ViKwi4RLdh0sIp/n9mIcspM9usJVgZjmHrZHVhiN7bHgaM2U1CtbL5PfX
a0vBKC/ylJVDi9OYAjiaU0GtC1QEH812ORnlRQFrNtN8PB59ymeqOc4NrlYm
vOf+F0uJtPl5h4ecfUwxJPLEnzjyjbqBCzN2neD8os0hVZgEfIt5Oa/KRQpG
eZGrudYb7VUx8NVr4dyCR4rgrIBCEcNeCVxRM2rbGkoFD/69oSjfiUZ8YWq/
490qbZjbkNE8iYzmSWQ0T8pfl+KfrUfI34+B0Twp/7wyGM2T8uvRiX8BxsW1
LQ==
         "], PolygonBox[CompressedData["
1:eJwBaQKW/SFib1JiAgAAAJYAAAAEAAAAAQwNAgINDgMDDg8EBA8QBQUQEQYG
ERIHBxITCAgTFAkJFBUKChUWCwwXGA0NGBkODhkaDw8aGxAQGxwRERwdEhId
HhMTHh8UFB8gFRUgIRYXIiMYGCMkGRkkJRoaJSYbGyYnHBwnKB0dKCkeHikq
Hx8qKyAgKywhIi0uIyMuLyQkLzAlJTAxJiYxMicnMjMoKDM0KSk0NSoqNTYr
KzY3LC04OS4uOTovLzo7MDA7PDExPD0yMj0+MzM+PzQ0P0A1NUBBNjZBQjc4
Q0Q5OURFOjpFRjs7Rkc8PEdIPT1IST4+SUo/P0pLQEBLTEFBTE1CQ05PRERP
UEVFUFFGRlFSR0dSU0hIU1RJSVRVSkpVVktLVldMTFdYTU5ZWk9PWltQUFtc
UVFcXVJSXV5TU15fVFRfYFVVYGFWVmFiV1diY1hZZGVaWmVmW1tmZ1xcZ2hd
XWhpXl5pal9famtgYGtsYWFsbWJibW5jZG9wZWVwcWZmcXJnZ3JzaGhzdGlp
dHVqanV2a2t2d2xsd3htbXh5bm96e3Bwe3xxcXx9cnJ9fnNzfn90dH+AdXWA
gXZ2gYJ3d4KDeHiDhHl6hYZ7e4aHfHyHiH19iIl+fomKf3+Ki4CAi4yBgYyN
goKNjoODjo+EhZCRhoaRkoeHkpOIiJOUiYmUlYqKlZaLi5aXjIyXmI2NmJmO
jpmaj5CbnJGRnJ2Skp2ek5Oen5SUn6CVlaChlpahopeXoqOYmKOkmZmkpZqb
pqecnKeonZ2oqZ6eqaqfn6qroKCrrKGhrK2ioq2uo6Our6Skr7Clbh7Rrw==

          "]]]}, {
        {RGBColor[1, 0, 0], PointSize[Medium], 
         PointBox[{{0., 0.}, {1.2566370614359172`, 0.9510565162951535}, {
          2.5132741228718345`, 0.5877852522924731}, {
          3.7699111843077517`, -0.5877852522924731}, {
          5.026548245743669, -0.9510565162951535}, {6.283185307179586, 0.}, {
          0., 2.}, {1.2566370614359172`, 2.}, {2.5132741228718345`, 2.}, {
          3.7699111843077517`, 2.}, {5.026548245743669, 2.}, {
          6.283185307179586, 2.}, {0., 4.}, {1.2566370614359172`, 
          4.951056516295154}, {2.5132741228718345`, 4.587785252292473}, {
          3.7699111843077517`, 3.4122147477075266`}, {5.026548245743669, 
          3.0489434837048464`}, {6.283185307179586, 4.}}]}, 
        {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
         LineBox[{{{0., 0.}, {1.2566370614359172`, 0.9510565162951535}, {
          2.5132741228718345`, 0.5877852522924731}, {
          3.7699111843077517`, -0.5877852522924731}, {
          5.026548245743669, -0.9510565162951535}, {6.283185307179586, 
          0.}}, {{0., 2.}, {1.2566370614359172`, 2.}, {2.5132741228718345`, 
          2.}, {3.7699111843077517`, 2.}, {5.026548245743669, 2.}, {
          6.283185307179586, 2.}}, {{0., 4.}, {1.2566370614359172`, 
          4.951056516295154}, {2.5132741228718345`, 4.587785252292473}, {
          3.7699111843077517`, 3.4122147477075266`}, {5.026548245743669, 
          3.0489434837048464`}, {6.283185307179586, 4.}}}]}}},
      DisplayFunction->Identity,
      ImagePadding->{{0., 1.}, {1., 0.}}], {576., -177.91242902851732}, 
     ImageScaled[{0.5, 0.5}], {360., 338.8808171971759}]}, {}},
  ContentSelectable->True,
  ImageSize->Medium,
  PlotRangePadding->{6, 5}]], "Output",
 CellLabel->"Out[2]=",
 CellID->162650595,ExpressionUUID->"b6703f80-2263-44fd-865c-d6178eb55963"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"MeshOrder\"", "ExampleSubsection",ExpressionUUID->
   "9518816c-7fab-46df-b2c0-df7fa57f8612"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->71641853,ExpressionUUID->"433ffb84-8056-491b-b8f2-6633ce9f740d"],

Cell["\<\
A higher order mesh more accurately describes curved shapes of interpolated \
raster points. For example, we create a raster of 3 lines with 3 points.\
\>", "ExampleText",
 CellID->355665184,ExpressionUUID->"6b3bd4ee-8fd6-400f-8ac6-25c36f324b9d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"raster", "=", 
  RowBox[{"N", "@", 
   RowBox[{"Outer", "[", "\[IndentingNewLine]", 
    RowBox[{"Times", ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.75", ",", "0.5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Cos", "[", "#", "]"}], ",", 
          RowBox[{"Sin", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
       RowBox[{"Subdivide", "[", 
        RowBox[{"0", ",", 
         RowBox[{"Pi", "/", "2"}], ",", "2"}], "]"}]}], ")"}]}], 
    "\[IndentingNewLine]", "]"}]}]}]], "Input",
 CellLabel->"In[1]:=",
 CellID->87048079,ExpressionUUID->"7d6b5e9c-20ae-4ac2-a505-7f1a8f203584"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7071067811865475`", ",", "0.7071067811865475`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.75`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.5303300858899106`", ",", "0.5303300858899106`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.75`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.35355339059327373`", ",", "0.35355339059327373`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.5`"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]=",
 CellID->206227413,ExpressionUUID->"2ab1f559-c859-44e0-b683-a1f0bbe26372"]
}, Open  ]],

Cell[TextData[{
 "Raster points are interpolated with ",
 Cell[BoxData[
  ButtonBox["InterpolationOrder",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "a305f583-eb93-400f-b451-852645018050"],
 " 2, so they represent geometry with curved boundaries. A ",
 Cell[BoxData[
 "StructuredMesh"], "InlineFormula",ExpressionUUID->
  "7b3d55bd-c258-44d8-b0d5-7ed62bf53e86"],
 " with ",
 Cell[BoxData["\<\"MeshOrder\"\>"], "InlineFormula",ExpressionUUID->
  "420f6591-5d3d-455f-b892-a061c2898bd7"],
 " 2 can accurately capture such a shape."
}], "ExampleText",
 CellID->5355150,ExpressionUUID->"afa8ebad-415a-43a4-97dd-8066d5df2865"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "3da1a872-8ad4-4422-9a86-0f741c63a6af"],
 " method ",
 Cell[BoxData["\<\"Wireframe\"\>"], "InlineFormula",ExpressionUUID->
  "412a28b7-1783-4753-b3db-b0ec8b2da958"],
 "  only shows straight edges of elements, even though they are curved. \
However, the true position of nodes is shown by the black points."
}], "ExampleText",
 CellID->241856028,ExpressionUUID->"4b0aa887-fb40-4979-886a-b082cdd29a4e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3"}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "2"}], ",", 
     RowBox[{"\"\<MeshOrder\>\"", "\[Rule]", "2"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"mesh", "[", "\"\<Coordinates\>\"", "]"}], "]"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellLabel->"In[2]:=",
 CellID->800338398,ExpressionUUID->"375294b8-ac57-4f8a-9c24-c4c605604709"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "1.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"QuadElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "9", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[2]=",
 CellID->84053654,ExpressionUUID->"5d893f61-156d-4d3e-a7da-4d48911ce228"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQEf7GGs1atA4BWcHxYKAk/hfAh4AOcnHJaOLrB8
bb9VonDD0b4H9lVnHRfeXf/Mvqluz4V5M27bT7ue/txL7ZH9nNPTHDYJX7OH
qL8NVX/BfhtUH8ycFqg+mDnzoPpg5myD6oOZg+ou0v1RtN6tzzrynb35lkeF
Z9gv2eed0Pu37MsL++/h5yVEo+/Zm0x66h3j9dKe7Xplxn+ec/YQc97Czem4
FOIikv3EXmDpyg6Nazfsv5e0cNZaP7Gf56r3NpXrBFTdC7h6t51fRZgP37fX
/NT8wzrwMtT+e1D7D9lD3P0Irv6MdX3avAXP7GH0T6i7YO6sj9m/Su/2Izgt
CHUHzF1pv/7drdW+B6e1oPbC3AEx9xqctoKGQyE0XFDD7609FzQcYOGCGp4v
7BdD/Q0LB9T4eAQ1/xDU/Hv2AC3w/x8=
     "], 
     PolygonBox[{{1, 5, 6, 2}, {2, 6, 7, 3}, {3, 7, 8, 4}, {5, 9, 10, 6}, {6, 
      10, 11, 7}, {7, 11, 12, 8}, {9, 13, 14, 10}, {10, 14, 15, 11}, {11, 15, 
      16, 12}}]]}, {
    {PointSize[Medium], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQEf7GGs1atA4BWcHxYKAk/hfAh4AOcnHJaOLrB8
bb9VonDD0b4H9lVnHRfeXf/Mvqluz4V5M27bT7ue/txL7ZH9nNPTHDYJX7OH
qL8NVX/BfhtUH8ycFqg+mDnzoPpg5myD6oOZg+ou0v1RtN6tzzrynb35lkeF
Z9gv2eed0Pu37MsL++/h5yVEo+/Zm0x66h3j9dKe7Xplxn+ec/YQc97Czem4
FOIikv3EXmDpyg6Nazfsv5e0cNZaP7Gf56r3NpXrBFTdC7h6t51fRZgP37fX
/NT8wzrwMtT+e1D7D9lD3P0Irv6MdX3avAXP7GH0T6i7YO6sj9m/Su/2Izgt
CHUHzF1pv/7drdW+B6e1oPbC3AEx9xqctoKGQyE0XFDD7609FzQcYOGCGp4v
7BdD/Q0LB9T4eAQ1/xDU/Hv2AC3w/x8=
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[Large], 
     PointBox[{{1., 0.}, {0.7071067811865475, 0.7071067811865475}, {0., 1.}, {
      0.75, 0.}, {0.5303300858899106, 0.5303300858899106}, {0., 0.75}, {0.5, 
      0.}, {0.35355339059327373`, 0.35355339059327373`}, {0., 0.5}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{1., 0.}, {0.7071067811865475, 0.7071067811865475}, {0., 
      1.}}, {{0.75, 0.}, {0.5303300858899106, 0.5303300858899106}, {0., 
      0.75}}, {{0.5, 0.}, {0.35355339059327373`, 0.35355339059327373`}, {0., 
      0.5}}}]}}}]], "Output",
 CellLabel->"Out[3]=",
 CellID->114580592,ExpressionUUID->"01a41505-b6d5-4483-a80b-8a2e24190963"]
}, Open  ]],

Cell[TextData[{
 "If the ",
 Cell[BoxData["\<\"MeshOrder\"\>"], "InlineFormula",ExpressionUUID->
  "9a473e0d-5077-46fd-8d7a-e3f4806f7d71"],
 " is changed from 2 to 1 and back to 2, then information about curved \
element edges is lost."
}], "ExampleText",
 CellID->544023560,ExpressionUUID->"ee466f26-3c06-4905-ace8-a4a41b3b9e12"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"altMesh", "=", 
   RowBox[{"MeshOrderAlteration", "[", 
    RowBox[{
     RowBox[{"MeshOrderAlteration", "[", 
      RowBox[{"mesh", ",", "1"}], "]"}], ",", "2"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"altMesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"altMesh", "[", "\"\<Coordinates\>\"", "]"}], "]"}]}], "}"}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellLabel->"In[4]:=",
 CellID->312315301,ExpressionUUID->"e750eaf4-eceb-4268-9a87-f6f852302226"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "1.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"QuadElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "9", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[4]=",
 CellID->49035003,ExpressionUUID->"f155652d-9309-4a13-bc79-96081c9cbdd6"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQEf7GGs1atA4BWcHxYKAk/hfAh4AOcnHJaOLrB8
bb9VonDD0b4H9lVnHRfeXf/Mvqluz4V5M27bT7ue/txL7ZH9nNPTHDYJX7OH
qL8NVX/BfhtUH8ycFqg+mDnzoPpg5myD6oOZg+ou0v2x4WGv7o45b+HuyT2h
92/Zlxf238LPS4hG37MXsvmm6rL2BdQ/p+0h5ryFm9NxKcRFJPuJPf/SlR0a
127Yl02Lk7uw9zHUv8eg6l7A1bvt/CrCfPi+vcan5h/WgZeh9t+F2n/AHuLu
R3D13HnHWKWfPLXngtI/oO6CuTOO7UKLmN0jOC0IdQfMXam2m9lVDO7ap0Bp
Lai9MHdAzL8KNf8qPHxh4YIafm+h8XMaHi6o4fkCGl/H4OGAGh+w+DsA9zcA
Sx385Q==
     "], 
     PolygonBox[{{1, 5, 6, 2}, {2, 6, 7, 3}, {3, 7, 8, 4}, {5, 9, 10, 6}, {6, 
      10, 11, 7}, {7, 11, 12, 8}, {9, 13, 14, 10}, {10, 14, 15, 11}, {11, 15, 
      16, 12}}]]}, 
   {PointSize[Medium], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQEf7GGs1atA4BWcHxYKAk/hfAh4AOcnHJaOLrB8
bb9VonDD0b4H9lVnHRfeXf/Mvqluz4V5M27bT7ue/txL7ZH9nNPTHDYJX7OH
qL8NVX/BfhtUH8ycFqg+mDnzoPpg5myD6oOZg+ou0v2x4WGv7o45b+HuyT2h
92/Zlxf238LPS4hG37MXsvmm6rL2BdQ/p+0h5ryFm9NxKcRFJPuJPf/SlR0a
127Yl02Lk7uw9zHUv8eg6l7A1bvt/CrCfPi+vcan5h/WgZeh9t+F2n/AHuLu
R3D13HnHWKWfPLXngtI/oO6CuTOO7UKLmN0jOC0IdQfMXam2m9lVDO7ap0Bp
Lai9MHdAzL8KNf8qPHxh4YIafm+h8XMaHi6o4fkCGl/H4OGAGh+w+DsA9zcA
Sx385Q==
     "]]}}]], "Output",
 CellLabel->"Out[5]=",
 CellID->26259509,ExpressionUUID->"8529a34c-6ab0-43a9-81ee-fee293bc031a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "07ce66d1-670a-4afc-a531-35519dcddbc0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"d7de79be-4b9f-4d59-8a34-0eb2d475c45b"],

Cell["\<\
Solve a Poisson equation over a structured mesh. First, create a mesh:\
\>", "ExampleText",
 CellID->374874271,ExpressionUUID->"223d869f-742d-4796-8f08-98465f430199"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"Map", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"fi", ",", "0", ",", "Pi", ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "360"}]}]}], "}"}]}], "]"}], "&"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "[", "fi", "]"}], ",", 
         RowBox[{"Sin", "[", "fi", "]"}]}], "}"}], ",", 
       RowBox[{"0.8", "*", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Cos", "[", "fi", "]"}], ",", 
          RowBox[{"Sin", "[", "fi", "]"}]}], "}"}]}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"90", ",", "5"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellLabel->"In[2]:=",
 CellID->256724169,ExpressionUUID->"a11ea07c-afba-489e-827b-3118579facdd"],

Cell["Solve the equation.", "ExampleText",
 CellID->1977550056,ExpressionUUID->"f00efd97-5141-437a-8300-38d71759e03d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fun", "=", 
  RowBox[{"NDSolveValue", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Laplacian", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "\[Equal]", "3"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"DirichletCondition", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"x", "<", "0"}], "&&", 
         RowBox[{"y", "\[Equal]", "0"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"DirichletCondition", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "1"}], ",", 
        RowBox[{
         RowBox[{"x", ">", "0"}], "&&", 
         RowBox[{"y", "\[Equal]", "0"}]}]}], "]"}]}], "\[IndentingNewLine]", 
     "}"}], ",", "\[IndentingNewLine]", "u", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "mesh"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellLabel->"In[4]:=",
 CellID->1661888300,ExpressionUUID->"ddf65480-0943-4bcb-97b0-9ce63bdac91f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["InterpolatingFunction",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEBitmaps", "SquarePlusIconMedium"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{
               GrayLevel[0.6], 
               AbsolutePointSize[5], 
               PointBox[{1, 1}], 
               PointBox[{2, 4}], 
               PointBox[{3, 2}], 
               PointBox[{4, 3}]}, {{}, {}, {
                AbsoluteThickness[1], 
                Opacity[1.], 
                LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
                 "]]}}}, AspectRatio -> 1, Axes -> 
             False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> 
             Directive[
               GrayLevel[0.7], 
               Thickness[Tiny]], FrameTicks -> None, 
             ImageSize -> {Automatic, 
               Dynamic[
               3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEBitmaps", "SquareMinusIconMedium"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{
               GrayLevel[0.6], 
               AbsolutePointSize[5], 
               PointBox[{1, 1}], 
               PointBox[{2, 4}], 
               PointBox[{3, 2}], 
               PointBox[{4, 3}]}, {{}, {}, {
                AbsoluteThickness[1], 
                Opacity[1.], 
                LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
q5SZmRFAL++xNeOlE0Dwt3AR
                 "]]}}}, AspectRatio -> 1, Axes -> 
             False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> 
             Directive[
               GrayLevel[0.7], 
               Thickness[Tiny]], FrameTicks -> None, 
             ImageSize -> {Automatic, 
               Dynamic[
               3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "1.`"}], "}"}]}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Unstructured\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["False", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  InterpolatingFunction[{{-1., 1.}, {0., 1.}}, {
   5, 4225, 0, {546, 0}, {2, 2}, 0, 0, 0, 0, Indeterminate& , {}, {}, False}, {
    NDSolve`FEM`ElementMesh[CompressedData["
1:eJxd13dc1eX7BnAHThTH162l5sRBrhRJu41S3DsHjhRU3IIDxRRNcIG7wFTC
NC3cuBd6J6ViDoZsBdkcOBwwU3PGj/xcF6/XT/7o9DqHz/Pcz3W9zxM1d1kw
cnq5MmXKfFTyj/9ejZ/Hwn9zq6DLyr0ukjYP/7k1LnWfPC9297AuKJK2I2bP
2/rgpNxwe/F90/tFMmdsrz1Twi/J8u87HeoXWiQNgzcHzo26JvWbfLvJ36dI
/BZZezdyuCGryyzv8mZwkTwb53g0KehPaXXJa++hakXywcWsJ4P+uServ5mc
+Wt4odhu6ZJS9UC0FI/+8n82CwpleN7HPYpu3JcmHUc6Pq9VKM+t/RaHZMbJ
uNs7vVYesciawOzCzS8TJGBV8fHfP7VIVKOKzV9WSpY/7cdcNocXyK0KV5P7
2jyUym3mDWv8eYF4DW+5OMY6VQ4PHmdafs4sZd+dNk36Hrob/kkLs7RLOfpZ
w2dpcrAw5K7X+nyp/baWrykrXUKe7tyzNDNPJjsvsWoRmSHRrk9HufTIk563
rpxcdTpT7IdH7l/gY5IP6vUaeX57loRf7RqScDNXEq0zAn1nZYv9kIM5sVa5
UmtRWqcDDjlSA68OeJ+/x+eaYJ2eWNce+8RgX87BuTgn5+Y5eK63xf/9PJIj
ODdzYC4RyIm53UWOgcj1W+TM3J+hB/bCnthba/TIXtkze6cDuvCBE7qhI7qi
M7qjQ7q0gVO6LfP/fh7LeONz5ed4Xvk81leu38rYX7n/RmM+5XyYXzm/rXE+
bYnzwbHy/MhHmQ/yU+aHfJX5wrHSNfpR9oP+lP2VNxxrCPpF/8r+4UPpY6rh
R3+BHzhWuoY/pb9kw6f+Bp81Db/aE37xqnifjpWusY7S9X1jH+0B13CsdI05
la6djHNoG7jG91fL4PuLHJSubxs5aThcI0fl/YCcla4/MHrQIrhGT0rX6FF5
P8Gxlt5fhgOl6waGE10J13CkdA1nStdwqDXgGk6V9y8cK0Vf+HCtecSFwlLn
nSq09V5/uuR799Mny79us092uwecsT1YKM7+y3851fKkHHbIqtJ7c6FkrHhz
ZWLoRbn5w9inEXMKZXbl7ollG12T9kOtMxP6FMquc7Zxq8Zcl4StpxyWVisU
c59y9cZsuiX2wbNHnL9nkdjug+d3u3RX6rrsn3VkvUWmJ5sCZxRFie/PDY7O
6mERz6dj/pj9JkYOX3rSzDq1QAYk9ipeUz5OCtMtvx75pkBWbrOfUt0qQbru
OlY0q2aBrK7R03r220T5MMp2rluQWYodnae+LkyWzfdlcERTs4RNtenSOvGh
TJRZ80/vzpeL786dKn5eQaNHVs+XEbHNpi92SpPT3s71o5eWuB1mKn+0Y7rs
rFI4dnKySfJPOVltsMmQ+1+ndW7/iUk2Dv/0y/C8DLEaEtJ+zoZcqZQx17We
ZsrA//3QenRsjgTVXZ/4+ZYs+Xp0jaEfNsyRip2fV7Aamy1WeJ2K9/l7fK4i
1uG6G7BPLPblHJyLc3JunoPnOotzTsK5mQNz+Rc5MbeVyLEbcl2BnJl7f/TA
XtgTe3NBj+yVPbN3OqCLHXBCN3REV3RGd3RIlzZwSrfvux5jfK78HM8rn8f6
yvU9jf2V+/9gzKecD/Mr508zzqc9cD44Vp4f+SjzQX7K/JCvMl84VrpGP8p+
0J+yvytGv+qMftG/sn/4UPooMPxoAPzAsdI1/Cn9BRs+tT98VjD86hT4xavi
fTpWusY6Stdxxj66Hq7hWOkacypdbzLOoUPhGt9fvQDXyEHpuqmRk76Ea+So
vB+Qs9L1EaMHdYRr9KR0jR6V9xMcK13DgdI1nOgmuIYjpWs4U7qGQ3WEazhV
3r9wXHpfe/SumvCzu6XU+Qur7T7V5lqk5bRF7Wa4/ySSfvEfp8kW8b/u9yhu
Xqhsrh7l7exkkXH7w9LGBV+QOj96y6A2Frm8MLXhTtff5LPVAT1b/lsgIS+d
OmQv/EPsmpodn9wukPS24ativomQQWsmlL++rUD8z5zOa7Lyjhzqn1N0fHCB
7Gu9d3i4Q5RUeVLw5fViswQVrxyR0zlGevb/rrjpYbPsOVC0cVKLWPF98UV8
0iCzLPPzj95kEy/RpyZ0qpmdL52s5j5LfpIgC93eNslcki/dVj/PDY1Mktqr
aw9Y8m+eFC98UeR14IFU77L8qdk7Txa+O3eKRA6YkzP/H5P8FWhbf2/XR3LN
ptrUtjNN0mrfVZ8Fnmmy7sMv6/SNzpUl1o2sLEPSJW7CnRpPu5T8XZxwId6q
WYbcG/DtmRmbc+TJsR8XLyko+fvb7c2BqLRsmdK0Q6PiU5myboLXWbeO2fK6
0PqB66IseYnXDXifv8fn/sI6XDcB+8RjX87BuTgn5+Y5eK75OKcNzs0cmEtX
5MTcOiLHGOS6FDkz993ogb2wJ/YWjB7ZK3tm73RAF/vghG7oiK7ojO7okC6r
wyndvu96pPG58nM8r3we6yvXv2Hsr9z/V2M+5XyYXzl/oHE+HYjzwbHy/MhH
mQ/yU+aHfJX5wrHSNfpR9oP+lP15Gv1qNfSL/pX9w4fSx1LDj/rCDxwrXcOf
0p+L4VMj4fOV4VfXwy9eFe/TsdI11lG6TjD20Xi4hmOla8ypdB1tnEML4Brf
X/WAa+SgdL3IyEnt4Bo5Ku8H5Kx07WD0oAFwjZ6UrtGj8n6CY6VrOFC6hhMN
gms4UrqGM6VrONTFcA2nyvsXjkvva9uJW8OftS0odX7N6tWG7S0LpO9wl7NJ
C/dK5ohUhxn1S/4/rPiTzk/mnRCPtMt/Ly1bIJE3V5T/atN5cdl30O9uhlka
XKp+fpyzyshTTbe5XzbL+V4zfAZu/V3WHW8xaJ6/WRJrrskbOuemTJ4x+GzM
SLM4dmk8vUKf2/LZx+08T9Uyy8Xsw3V6VYuULX2upTSLyJdrVQ+mTnWLlptx
XVO7eeaLxX1/Hfsv7kujGrutKjfJl4W+qY7VGsbJgjtVPM5dzJO0F8GPBpni
5ca/UXcnD8uT2Vd2zJ8RmiiBHbL7fpRiEkffjGN33ZNFW/ovb+lqknbvzv1Q
6jRyWOafnit91taa9lViyf0dfOXwqnG5MinHttIM70fi2XV3VPuIHCk7raD8
yM1pkjD2giWsU460/br7LKcx6bKrn3Nvlx3Z8tDr3trYhhkyPmxKiyGWLGlp
Gz0hLCFDjrlkNjn5eZY8Pto89PetmVKE1+N4n7/H5x5gHa7bBvskYl/Owbk4
J+fmOXiuNjjnbzg3c2Aus5ATc0tBju7I1QM5M/cC9MBe2BN7O4Me2St7Zu90
QBehcEI3dERXdEZ3dEiXDeGUbt93/aPxufJzPK98Husr17cz9lfuf86YTzkf
5lfOP8Q4n07C+eBYeX7ko8wH+SnzQ77KfOFY6Rr9KPtBf8r+7Ix+9Sr6Rf/K
/uFD6aO84UcXww8cK13Dn9Jfa8OnjoVPOFa6xqvSNxwrXWMdpeskYx9tDddw
rHSNOZWu6xrn0E/hGt9ftYVr5KB0fdPISafBNXJU3g/IWek6wuhBc+EaPSld
o0fl/QTHStdwoHQNJ3oEruFI6RrOlK7hUIfANZwq7184Lr2vM5bXOe6Unl/q
3M/KdUu9lHxxTEypm2sVLBvCy3n7RuVLyqIxP9uXOS6jT/86M+ByvvS19Go9
Yvk5OXHwTtyw4Hy5tGWyg4/likzPOpQTtixfbqzyTT5xJFxSek8cZRqYL/de
fD7qtvMN8RjY2y2tTr68OrEmzVLuT4mpO//N2fg86eRdf8Pf++9Kna0Bniu2
5Ulu3TtzUoKiZIxrbNgAxzzp0/urvbVdY+Rkq8dduheYZJ535zP+Jf89rJ5z
/uTELSbZZom+FZYSJ40DD3gntzXJ3ld2zxpvT5DGSecdIy/nytqAO3Oa904S
9/pBZSY55Urmu3Mny/j8ylVDbufIlkUvQ61XPpQUuwVP4/vniIdffEVLjVSZ
3v/xptqaLQ29Vlaav+uRJI06cHutXbYsyzn9euOmNHH9ouuNSTuz5Gbf4sCu
TumSVvP6vlsvMyWvi+ePXm/SJXbWEN9XX2VK9uwea1sczZAsvMbhff4en7uB
dbjuUuyTjH05B+finJyb5+C50nBOD5ybOTCXYOaE3LYgRxvkOhc5M3dBD+yF
PbG39uiRvbJn9k4HdPEbnNANHdEVndEdHdJlAzil2/ddBxqfKz/H88rnsb5y
/Uhjf+X+1435lPNhfuX8VqHvzqfuOB8cK8+PfJT5ID9lfshXmS8cK12jH2U/
6E/ZX67Rry5Av+hf2T98KH18YPhRV/iBY6Vr+FP6Mxs+NRU+4VjpGq9K33Cs
dI11lK4fGPuoJ1zDsdI15lS6djbOoX5wje+vZsA1clC6bmLkpLvgGjkq7wfk
rHQ91uhBHeAaPSldo0fl/QTHStdwoHQNJ3oZruFI6RrOlK7hUE/DNZwq7184
Lr2vd+/67yev1Pkoqzvf7QkocTVlvOfTwCDp0LXNtf0bS+5Lk2fdVTuOiv26
71JOLcmTsNpv+w+ZeVbeHPq7Wcz4PJnoeuLKsdVh4lWvW+8q3fMkLnx/57oR
16Tb3e8nuFbNkz/Syl5xGnhdfO3sGhbGm+Rkx/wJ8dcjxO3NyTUX95gkpJ7v
68M978iulFk1EseZpJFjzl8nD0RK1uPFeybbmGRHlcrtLGuixalXv6nTwnJl
5jLfVtZ29+VI8fQn5VxL/q7MsDrT8X6sLOi47OMx5XIlrsftb6I94uWntX6y
YneORPxyznZJlUT5qOqxdQHtc2TPu3MnSfClhD1/nM2WlKnpb681fyDmq80+
s+uZXTKnT8XF+x7K6En9Brw8myWd2n1Uyb5BqjwYtu3Q0A5ZsvWBS5Ndax+J
XZ9qw8YHZUporU4hOxanyczpts36VcyUY70aP+rePF1eu583fzE7Q5LbDnH2
iUiXJLy+wfv8PT7HdbjuZuzzEPtyDs7FOTk3z8Fz/YBztsC5mQNziUVOzO0z
5HgUubohZ+a+HT2wF/bE3n5Gj+yVPbN3OqCLSDihGzqiKzqjOzqky/pwSrfv
u95mfK78HM8rn8f6yvXdjf2V+8ca8ynnw/zK+S8b51MfnA+OledHPsp8kJ8y
P+SrzBeOla7Rj7If9KfsL9joV5ujX/Sv7B8+lD66GX50JPzAsdI1/Cn9nTB8
6gz4hGOla7wqfcOx0jXWUbpOMfZRf7iGY6VrzKl0vdc4hybBNb6/uhuukYPS
tbuRk0bCNXJU3g/IWek62+hBN8E1elK6Ro/K+wmOla7hQOkaTvRPuIYjpWs4
U7qGQ20A13CqvH/huPS+/j+RmosZ
     "], {
      NDSolve`FEM`QuadElement[CompressedData["
1:eJwt2WUQcEUdRvF3L93d+dIlSIoCIo20dEh3CyiNgHQqIN2odDdKh3R3KCgd
Il2KuL/5Px+e2bNn9vOZO3NHbrHrmrsMI0aMuLuNGDFqP/sxwn3jvp+HR+nb
JA57t2kcHq1vszg8et/mcXiMvi3i8Jh9W8bhsfq2isNj920dh8fp2yYOj9u3
bRwer2+7ODx+3/ZxeIK+HeLwhH07xuGJ+naKwxP37RyHJ+nbJQ5P2rdrHJ6s
7xdxePK+3eLwFH27x+Ep+/aIw1P1/TIOT933qzg8Td+ecXjavr3i8HR9e8fh
6fv2icMz9O0bh2fs2y8Oj+zbPw7P1HdAHJ6579dxeJa+A+PwrH0HxeHZ+g6O
w7P3/SYOz9F3SByes+/QODxX32FxeO6+w+PwPH1HxOHv9R0Zh+ftOyoOz9d3
dBz+ft8xcXj+vmPj8AJ9x8XhBfuOj8ML9f02Di/c97s4vEjfCXH4B30nxuFF
+06Kwz/s+30c/lHfyXF4sb5T4vDifafG4SX6TovDP+47PQ4v2XdGHP5J35lx
eKm+s+Lw0n1nx+Fl+s6Jw8v2nRuHl+s7Lw4v33d+HF6h74I4vGLfH+LwT/v+
GIdX6vtTHF6578I4vErfRXF41b6L4/BqfZfE4dX7Lo3Da/RdFod/1nd5HF6z
74o4vFbflXF47b6r4vA6fVfH4XX7ronD6/VdG4fX77suDm/Qd30c3rDvhji8
Ud+NcZqswzf33RTW4VvisA7/OQ5v1veXOKzDt8ZhHb4tDuvw7XFYh++Iwzp8
ZxzW4bvisA7fHYd1+J44rMP3xmEdvi8O6/Bf47AO3x+HdfiBOKzDD8ZhHX4o
Duvww3FYhx+Jwzr8aBzW4cfisA4/Hod1+Ik4rMNPxmEdfioO6/DTcViHn4nD
OvxsHNbh5+KwDj8fh3X4hTiswy/GYR1+KQ4f1PdyHNbhV+KwDv8tDuvw3+Ow
Dr8ah3X4tTisw/+Iwzr8zzisw6/HYR1+Iw7r8JtxWIffisM6/HYc1uF34rAO
vxuHdfi9OKzD78dhHf4gDuvwv+KwDn8Yh3X433FYhz+Kwzr8cRzW4U/isA5/
God1+LM4rMOfx2Ed/iIO6/CXcViHv4rDOvx1HNbhb+LweX3/icM6/N84rMPf
xmEd/l8c1uHv4rAO+1D8LqzDrZXDOjy0cliHR2nlsA6P2sphHR6tlcM6PHor
h3V4jFYO6/CYrRzW4bFaOazDY7dyWIfHaeWwDo/bymEdHq+Vwzo8fiuHdXiC
Vg7r8IStHNbmiVo5TdbhSTpP3Ip1eNJWDuvwZK0c1uHJWzmsw1O0cliHp2zl
sA5P1cphHZ66lcN39k3TymEdnraVwzo8XSuHdXj6Vg7r8AytHNbhGVs5rMMj
WzmswzO1cliHZ27lsA7P0sphHZ61lcM6PFsrh3V49lYO6/AcrRzW4TlbOazD
c7VyWIfnbuWwDs/TymEd/l4rh3V43lYO6/B8rRzW4e+3cliH52/lsA4v0Mph
HV6wlcM6vFArh3V44VYO6/AirRzW4R+0cliHF23lsA7/sJXDOvyjVg6/1rdY
K4d1ePFWDuvwEq0c1uEft3JYh5ds5bAO/6SVwzq8VCuHdXjpVg7r8DKtHNbh
ZVs5rMPLtXJYh5dv5bAOr9DKYR1esZXDOvzTVg7r8EqtHNbhlVs5rMOrtHJY
h1dt5bAOr9bKYR1evZXDOrxGK4d1+GetHNbhNVs5rMNrtXJYh9du5bAOr9PK
YR1et5XDOrxeK4d1eP1WDuvwBq0c1uENWzmswxu1cliHfx6HdXjjOKzDm8Rh
Hd40DuvwZnFYhzePwzq8RRzW4S3jsA5vFYd1eOs4rMPbxGEd3jYO6/B2cViH
t4/DOrxDHNbhHeOwNu8Up8k6vEvfzmEd3jUO6/Av4rAO7xaHdXj3OKzDe8Rh
Hf5lHNbhX8VhHd4zDuvwXnFYh/eOwzq8TxzW4X3jsA7vF4d1eP84rMMHxGEd
/nUc1uED47AOHxSHdfjgOKzDv4nDOnxIHNbhQ+OwDh8Wh3X48Disw0fEYR0+
Mg7r8FFxWIePjsM6fEwc1uFj47AOHxeHdfj4OKzDv43DOvy7OKzDJ8RhHT4x
DuvwSXFYh38fh3X45Disw6fEYR0+NQ7r8GlxWIdPj8M6fEYc1uEz47AOnxWH
dfjsOKzD58RhHT43DuvweXFYh8+Pwzp8QRzW4T/EYR3+YxzW4T/FYR2+MA7r
8EVxWIcvjsM6fEkc1uFL47AOXxaHdfjyOKzDV8RhHb4yDuvwVXFYh6+Owzp8
TRzW4WvjsA5fF4d1+Po4rMM3xGEdvjEO6/BNcViHb47DOnxLHNbhP8dhHf5L
HNbhW+OwDt8Wh3X49jisw3fEYR2+Mw7r8F1xWIfvjsM6fE8c1uF747AO3xeH
dfivcVib74/TZB1+sO+BsA4/FId1+OE4rMOPxGEdfjQO6/BjcViHH4/DOvxE
HNbhJ+OwDj8Vh3X46Tisw8/EYR1+Ng7r8HNxWIefj8M6/EIc1uEX47AOvxSH
dfjlOKzDr8RhHf5bHNbhv8dhHX41Duvwa3FYh/8Rh3X4n3FYh1+Pwzr8RhzW
4TfjsA6/FYd1+O04rMPvxGEdfjcO6/B7cViH34/DOvxBHNbhf8VhHf4wDuvw
v+OwDn8Uh3X44zisw5/EYR3+NA7r8GdxWIc/j8M6/EUc1uEv47AOfxWHdfjr
OKzD38RhHf5PHNbh/8ZhHf42Duvw/+KwDn8Xh3XYj57vwjrchnJYh4ehHNbh
UYZyWIdHHcphHR5tKId1ePShHNbhMYZyWIfHHMphHR5rKId1eOyhHNbhcYZy
WIfHHcphHR5vKId1ePyhHNbhCYZyWIcnHMphHZ5oKId1eOKhHNbhSYZyWIcn
HcphHZ5sKId1ePKhHNbhKYZyWIenHMphHZ5qKId1eOqhHNbhaYZyWIenHcph
HZ5uKId1ePqhHNbhGYZyWIdnHMphHR45lMPaPNNQ7v8wF3rE
       "]]}, {
      NDSolve`FEM`LineElement[CompressedData["
1:eJxN1MVXVVEUwOH3Lt28RzcPA7sVGxMbETtGjo3/TmdO7cTuQMHGbuWedb+B
g2/t39pnutfJHT4+eCxKpVKnYmGmzUP/dR75FFBIEcWUUEoZ5VRQSRXVZMhS
Qy111NNAI00000IrbbTTQSc5upjARCYxmW6mMJVpTGcGM5nFbOYwl3nMZwEL
WUQPi1nCUpaxnBWspJdVrGYNa1nHevrYwEY2sZktbGUb/WxngB0MspNd7GYP
e9nHfg5wkBOxk6nktkNn4gPPppNd6COxo3ahT8fOxs4Q3s7ZndcX9EV9SV/W
V/RVfU0P6ev6hr6pb+nb+o6+q+/p+/qBfqgf6cf6iX6qn+lh/Vy/0CN6VL/U
r/Rr/Ua/1e/0ez2mP+iP+pP+rL/or/qb/q5/6J/6l/6t/+i/+p8OH1jodJR0
FCWdp/N1gS7URbpYl+hSXabLdYWu1FW6Wmd0VtfoWl2n63WDbtRNulm36Fbd
ptt1h+7UOR1uuitKhN04mVOTdQ==
       "]]}]}, CompressedData["
1:eJxll3c41l/cx+89vt/bSEQRZZVERZR5PkJJw0yhNJVCNIWiJSRFRWVVtmhR
RmXPrCIjNNxGke22bvP5/vFc13M91+/8c65z/jnXdc7rfD6v98ojbpaOZBKJ
JEsh/e8YRn1hgd6pQyNo0POGRGIdD50zCe1KThxHSavEZBa5TaJVvAhRMWU+
mrl8WqixdRqF3o9yPeYziyZdDzfVis2jZc1WZpLPF5DrRTVsVQgJduRmt7zb
Toahsittm+bIMOkQcOvNCwpoGqbJylhSQWLeoO0GjwrKymcrf92lgaI8g7Re
ng7932/6eWTQ4a/Kq0PvdRkw5zz9sDefAQeSrsmL6jFhztFfWOMdE9r/1Nru
VGDBh/kakl0IC3ifq+gO4yz4q8Zz2mfNhgYZhzXbX7JhiZqU6XoSBje/a1YI
7MLAvSQjnvsAA3vH8N+pDRgI1bZfchHCoVP/obucEQ6ynm/Lvp7F4dLIZu/z
kTiYDa65K5hH7Ef4L8S04vBQ0OyLwggO0vbX5mLJHFgUKH17CYcDgjGKF64K
c+Bc9JO8dkEO6AR6HN/E5EDwkQKXm3wcZpXO15V345Dz+/5DcjUOoTekMjek
4TAiukhz3y0c3t93F71ghwN3WtsiYDUOIqbu/aHDGKR7Cf8JTcfg5A1J/YDT
GHywDh07L48B3niGva+BDa0tny5v8GFDgdTZ3WRZNogqhfqU57PAT2+pwM29
LPi0lD2t2csE/gsH4/bzTMi8tmTId5oBYf1rJsW8GPD18v0DsTw6UEP1ZBVO
EPe/RcQ4poEGOsndpQK6NLgW7x5/LpoK7KN67V+mKFAXH3BJdjcFujoFXZyj
ybCIk5394g8JzjXg9u1KJNB9+zBConYenbJowQ/oziFeo+W/4JgZ9JH5hpw6
xkeUejSToT+FBHPstiVfnkCRCrzJW6/GkArmf313wyiyj9SynR0YRo/Oq1+V
mBxAgvorjw7yexFVpoRztKsbvb9MKTTL5KJex8Cmv79aEU3sT1epdD0q+SF/
MHBPESL9vzGM9kZLy7YOjqAO79TCc195SHGV2W/9hHHk7JSgest1EpFOJLhf
VOKjjkP1D9a0TKPlygpf0y/PIoMpzX4J0Xl0vMyk5sjTBaR26h/J9B4JZLkR
e5tNyNCgdkHYbpYMSpjvvfoUCgS3iS4ysKDCL1p8TsIoFa5YrH5KIrj2kfxT
ayFHh/jFv82fpNNBWbNHqVmHAUtY/ftxgus7Qi/7NHSZkLJep9kmgwne17RX
nJZnQQxLsNz7HgtUA0eqfMdYsE6Uvc7Lig3vXU8Nn0pjQ2i2rLDlAhuUO7Tu
rtuJgXHGu1NUgmuKUHhCzTcMPDN+698VxOHXy/uaxoY4xD17fWf0DA7NA5oG
4RE4JHxdbb0+F4diF7/SghYcPjXvDNs2jEOItG9xCYkDItulzDfjHCDtl9eJ
FeLAartHNykE1wbGF9baMjiwWTpPLXEKh9vdZx71duFwNDLETq4Kh3C07LJV
Kg5JdYKznn7EOeanW8NtcWj/sFn8xSocbgqcTs8YwqDNUDAt4y0GmM1S2gtX
DEQ23fsQLofBqTq3L57f2GBP/rjF6gobPgW5i8qtZIOvYIhRbx5xH38lviXY
sOABCyvY18OE2HeHcQrBtSpr+fvnfAZ4am/K3eTJADGHZLmSUTromB/t2Xqc
Dl93WuIF32jQtMXizjodGqx1k3cOi6KCVpVT0sgkBfrAC4x2UWBVv4lGcBQZ
Pm8VuVndTYKaqj4lCsH1rzmS0f7qecRziK54pj2HnjLky+uiZtBKh+jFQ6N8
VJOi6jilO4WySDKGA14TaJXA0e7qtDHkxfcmhdePokQFIbet/cPoVYKR8Xve
APpN73V+MtGL3jFaShS43UhvXrZdK4OLMtqvFqKWVlQvdStwdmk9WiZR82B+
93+5Ds49Hyg+MIIqh5T2pNTw0FJGoGTL83HEwzVCik9Oom9/rTiXFfjI/d+f
SMHGaRS08CTy+qVZZGlw4sYPoXlkdC+LKRO5gMLu+3crBJPANkmy++1WMnis
66lVnybDlg3zX1OTKFCdq8xcZkaFaz2br/sMU0HVe+vOliAarNc/47xmJR0k
g092nnlDh73WJzNfazFgmX9Fd+cnBthl25wV1GaCr0ro/nVvmeBytTh+qywL
1lhI7rAOZkHq6ndm+0ZZMBgfk25pwQbDmq5zhi/YQHt958GaOWI98mQRyxQD
kwrBwbYQDGIC+lcn1mFQs6BedJyDQ0dKd85yAxze1JGFq9xwOBkfUHL6MQ67
9LyaWR9x+JrWZPKkmeBuNlpixSAOHupft0bP47DJ2vWbMJsD2w9fyPMS4MCC
fQ+zjeBc3Ljs9QYaB7DlQpk+EzgIdRUtK+rAQSOC+3OmAgdn5LygnEL0hW8H
fS1v4DC8J/+A214caGWBEdcVcHCRzde4M4DBtNPBdXdeY7A4/JT/dWcMcuLa
9dxWYjDjX2hpWccGJzWBMmVvNhT6Fz+akSb6lF1XeeEnFlQecrPxsWbB4+XH
DDf8YcLH4sK7rWeYED9/a7PXJANoEW9B2IMBjYN6SVHDdMgcUnCROUYHu7CD
9x7X0aDUoFWYpUUDsovXsGsEFZjnRVQrxykwmG/zWWoHBaywykLHCDKggqgl
CZ0kuDJ4saxVkQT6FnoxAhXzSFOx3NZScw5JVllk3Hg8g/alRYY/H+QjsTjR
jtTNU2h18AqH2IsT6N+B6Fc3k8eQbdE/bcvaUZR9GjGwHoLH3ao/rPsG0KSE
yOXDg73IjqU5u76lG+003hL3LpWLPPY7pSdXtSLnft/mesF6VLrUp7YX/su1
3n4dDrlvBFk1tPYZVPKQs2h2aFz0OFKuC7Jf5DiJfj1hPvJZwUedw025nV+m
UVtDi43uuVkkpf3svR82j0hXXFFe2AKa/vHQ5+xtEvx5M5s2a0iGrVcEfa5M
koEtl9M0Fk+BEoXkxCM7qeBHIXeVDVDh+K26gJWBNPAWvxF6VpoOp237ZnJe
0kE8/2PZpCYDGEfWjCh/YED8yVwvm01MMN2lfNTjFROM07a9uCvDAte8SbOo
2ywQt1O2fjZEcJ73PTNiNxueMqc9gpLYgKcEPTo7zYY7V4LEzLdhwNWaGpG7
i4HCkrq1g7UYZD0RK3vFxqHcuzTXUR+HYyHtixe7EnzlHq/IDMPh5cjeNvNs
HLLl3+3kNuCw3dxbyqmP8Bb3l6bdMzgcvmnavI+oyzcDLYuKMA4E+JbicgTn
I45xGZ6Ep1zX7c8p4+EgTn0mjbXjkJaTxzUsw8HwkAn1fCIO1EndGxFXcVD2
iTqcZY2D6sTxmEpZHBoORmk1/MPA8ZOuekMaBnwBk6BKJwwk9uUZZEljEP7s
qU1ELRuWj/R9PneJDSm2cZGGUmwoGiutYn9ggfWglV2ZBQvU7u3a5tnJBIp5
xn1ZNyYkTfnpFo0x4FBDmdG+8wzgsC6ldg3QYcXKaPcTh+kQRdF92F5Lg2hX
hyXmmjSoDBKdfP+IChYKnpoiPAq0RWQ3HDOhgMgFqfqXj8jw8I70uoF2EpSX
B/TLypPg1Qkr8ZiieWRgt3d55/o5JBhpOir6YAZx7y2KVe/lowz9w4DUp5Dh
s46BTWcmUPpoVvvyuDEk/ubZ2ZGKUeR34tLmjI5htIb/0rKinajXCqP5eFcv
cnaJXqT5pRt9/DKkZR7LRQVh8kH1H1pRuI+hmga5HhkKZXRprP8v1wnmB4Rk
ekdQTezhRo1yHrpQdIvPfTKOSHlb7nIPTaKE6UYOR4qPXPy1WkyqppGO5JZF
gadnUcsm56xi+jzSw+UceCELqE7T7CAWQIIjn3cM3Tcgw0ZFKBMZJ8Ng/6R/
YCwF8Iia2YntVGD1K1Pt+6ggdKr21vtbNCj/5unNkKJD3tnqll2pdChutIgO
2sgAyY+2xflZDPhZamT6byMTFE0lNuBpTACSnofschZQovZKrQ9ggSVtw4qN
AywonEq6rrqTDWJOyYYyCWzgaygeZUyx4fjiZdxOIwxUHvnmZgVh8F3ceupa
NcH3dFjoFibhtcZGgXwdHIwdHX4nnsJhcK7zgekDguOWhsSu9zi4Na2XuFCP
gzd38u9MDzEPKi3xJLxZZaIstp/KAb2x2mAbFgeE/xg0ZxKci1fK+AosEHX3
qZOfHeHjzx2l/kX/xOGBlM7L5mIcHEtKapnxhJ8cyNmt6kOc3yOhssOS8PAT
nScdVuBw5qcE3akHg8e7cuZPvMDgVX6JjcNxwreRjsAOKQx8uFKyqtVsmC89
Gca8yIZiOdkTzUsJ39qz9VF0Fgvow00KdmYs8OpvEBHgMqGt28Ah04UJYX4r
WDajDKjfeEG4/wwDErZs87jUR/THqljdGQc6qLRHHjpfTYOwQqvOTnUaxAeQ
S7eHEXXoGomROEyBAd7fxCljCuQFpScbhJGBm7DAufaLBItv+jZlriQBed2u
xWW588hY5aU9vnYORd8Ii9G7O4Neyd2jHejio+CQkq8nVaeQdt3Vs8dcJtDR
xLWxu2LGkIW+TahiySjSczTUHvk5jDr9fMoPNw+gQcusicbWXjSroj1nXtaN
DqUceDr8hItGdx1cU53aiq5mO3ynjdehe+lFcwor/8u1mI59oGoP4SEOa9NL
S3nIa+XbboXH4+jYdXG/SYdJtByLWc1YxkcDtZESap+J3LhPVMbJhfCQq5+j
oqjzqDokLKji7gLSrM1o4t0iQZijQY43kKHYK2DVDI/IjcaLX5x5ToHbJhVT
v0yowOfJ9Wz5R4U8p84D0X40MLVVMR1cRge/tWfiNF7Q4ZFi79Fz6gxY77E0
ICmTAaE9fwXq1Zngnio0NvqCCYwP1VqYFAvCypN/ifuzwMptf4dkPws0Ij8Z
LdnBhsemr+nMeDaoV8srDE6wITppcVyVIQbvFC76Pr2NwdlvJh9OVmEwHhlo
tYaBQ7zeph1cbRycJsyf3z1J5EKLpj1q93FYyix3qn5H+MmAbOv+OhwU+3pT
Ov8S3jAk+f0Q4c3vR7OPNVA4UD1QYKZP5MS2n+pPYugcaC9YZDA+h0NWmN22
LYSPl9gLpvn9wOGniIpbfhEOGz5mhgzF4rBnT6rwkivEv+nAhtQscPA51qi8
VYboB7+wcrO/GKC9qQVmKRjwmjIltjpicN1V5YuaJAavNwp1iVWxQXrv/r1D
59lwXVJMKV+CDbMTWrZ+mUTuSK36a7CbBTTvqoax30wQ9dJZEePMhBpJmUq9
EQZYi1+u/+bOAPFue61D/+hgr1k733GADgX4gOz+Khrs8+5MqFKjwUDvlP+G
h1TYFB/3OXiIAuQ3Sc7tRhQI/bHdTekhGVIOxjc5/STem62eELOCBPvXehSG
fZxHq/SiFdqU5lBE++1wgTszKLex1ESlg49eae15oL12Cj1luzA0T00g5cbx
kBVRY6i9uCJvpnAUZb58LlPZRngISa5T5tsAGuB6X0hu6kX/dlZuNC7qRipq
zGCpcC5a+Mxqa4tvRZeSA3cYDdWhaXp6zfOl/8f1/wCzl2Nv
   "], {Automatic}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[4]=",
 CellID->571860518,ExpressionUUID->"f6d0ac8c-4692-4743-889a-164eed26f715"]
}, Open  ]],

Cell["Visualize the result.", "ExampleText",
 CellID->1580758525,ExpressionUUID->"0a40aa1e-2085-43f8-8490-b9c909979254"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fun", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "mesh"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ColorFunction", "->", "\"\<TemperatureMap\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Mesh", "\[Rule]", "None"}]}], "\[IndentingNewLine]", "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{"ElementMeshToGraphicsComplex", "[", "\[IndentingNewLine]", 
     RowBox[{"mesh", ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<CoordinateConversion\>\"", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{
             RowBox[{"{", "0.", "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Length", "[", 
               RowBox[{"mesh", "[", "\"\<Coordinates\>\"", "]"}], "]"}], 
              "}"}]}], "]"}], ",", "2"}], "]"}], "&"}], ")"}]}]}], 
     "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellLabel->"In[5]:=",
 CellID->1622752499,ExpressionUUID->"326926d4-1da3-45f3-aac4-4cdc1d120a22"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1mHk8lOv7x2csw8yI6pSIIpEokor0letOKa1Km5CStHcoKluLbGm3niLO
IadEmzUhN04SiqzZd2Yw9i3Zfk7z3J3f+X1fv+efec0z91z3dV/X5/O+7+dZ
cMTG2FqARqPJ0Gk0QRq5eoD2r6sHjgtjB4HRblCuHs4xqQ0DXoC3c3R3LwxN
2p5j87ph8a5TZ+9VxQDP0U3qSWE/fDj+zV+uuBtO79cNPpyZDHaGPs2RTwbB
yV/j2cbX3SAdeifwzJcMeKo8W26GzTDMkXW9fcutG27asa/MXfMBlPqDZs1e
MgLXaE6aY9u6YdBE/3nFo1wYdflVorTyOyglO/7+TKwb5r1t7ts6nA9+vo/O
Hr0yBtecLZqeZnaByl3NGlZEIQyftSzLnz0Bk3s2/CJu0wU725Zpd38oBqmv
u41kwiZBVs1Yf2hGFwyxb9pHNpXC2YuaLOX7NGSS95vj5ehOuB7Y0nVn5Cts
f5dUEb+ZjgKuTr786z+d8GUuY8GISCX0fLhcpT1OR7mr96V0ZPIgRzit0kC8
GoYtbni+jhJAospnjWTW8cBxp6J9EbsWtNc/V5AzFkRR20y4TokdQP9R33qY
M7Guyq1fEBk8+5y5amEHqNY815MerIclS87n1t4VQn92RX529GqHmeMz3LnN
DaCsyKBpKAqjyIHfgi81tYGF6QWhhQWNwCt397gUJ4wKrQZ2H9FuA52cdzFX
45qAq/bycIIuA63eWRBu48aFeZK6xm98mmH89Hf/NsxAmWkrIr9mc6Cc3Rjo
frIFLJ+6Ks5aK4JWb/+ztUSIAzPs6jUi1rTCqLXX9FXxIkiC+r6G+r2hNf/A
NiVRRP5P4qVMfKaZ3hdFstR8OtT8vTl5whaDomg1lV8RlS9Xs/+EyR4mIush
6yuRs1Dd/IKJyPpJPaZrym7RoLEQqRepn1u51sdp21lofPLvqw6iqXrbvo+L
aPBjIdIP0h9T68C66BIW+kj1j/RzWn69wxkJNvpM9TuQ6n+Tnr/twg1s5Erp
g+hFwTHmw5fzbDRI6Ynoy6F3tbN9MBsR/RE9butSvSuexkaLKL0S/SoEeU2G
VrIR0TfRu7+4UYFS71R8yg/EH7JmruPhdDHkRvmH+OkX7/k3JcXEEPEb8Z94
6KIL16aLIeJP4lebkIdp9eJiiPiZ+HuN96Vj2iJiSJzyP+GB75H0M+4jbPR/
eTGmYl+Y3cJGB/jjMRn/rs7Xn/6JTeJjEt/PTTZx+XM2yQeTfHizZmiZeLKR
Ej9/TPJP8LWddcGUjbz568VkvfXf1+y6sfhnfTCpz8wttjyfHhZS4dcTK1L1
jHWa3uoTO3WfX39M6n/CTUbvxq8s0i9M+vVmj8+AvSKL9BeT/k4rPcc0KWES
PWCih/KKVJflV5iI4gUm/EiXPb+DrsAkesNEb7NUfK5kY1GiT0z06bZWepr7
flHEZ3Q9jqT0nCrN/K7VJkL0j4n+R6IsDOrtRYhfMPHLG1fJ7qvfGciS7y/8
hPKXH091eLYTA1G8wIQfhS6+B8P7hYl/MfGvoM9aBaXjwqiS73ecTvm9U3+m
QWiJEJrO5wPWofigHdmSNU1XCFHfMfU7uEbYRtiFCBL+YMIPltXa+oJvAoia
DxN+FEbccFDYIYCK+flhbYofrU3iZ06H0AkPMeHHDLGkpKhWGuEnJvywL2Gb
1avQ0CZ+vbAyxY81Mf5BUvkTQPEZ0yg+n9pVwT6oO054gQk/+kuN2++EjkIe
v384k+IHFnlNjx4YAarfmOwX9CIYjdP7RniBCT/E35puinQZgnl8PeFuih/B
Sv3Dni8HCC8w4cdSltf1HSV9hBeY7HdmwToHxjp7CC8w4Ye//YprUsOdhBeY
8ENCb4FV10gbSPH9gy9T/GDIvRezam4hvMCEH29cBDKMEhsILzDhB9fau4xT
W0l4gSUofojMbm3Oml9EeIHJ+SG1WvGQ995M6pzRg/83PQbqglKT5nt07Erq
+q9zCHX/X+MVYx+knlvL+vrYtvPn+Ikf3O8G6v6/xovuCUhVMb+XObiY93O8
ABWfuv+v8VLXr6U2Os16uamh/ed4OjWeuv+v8f6xD1ODHv59tf1X/N1Cn/yC
A9oADh+4OBD4CCT/Y+atzu2FpSuUM8K92wBxL86+6vscPlgsjc3K6ofVnn41
sRfaIHXmuOH2EwngsiCmRenBIIw965cvOtAG5lav3r24lgpW1+d4DFsMg6Pk
yrVMrTYozQxfPvtjBsxjhS5mzB2BlZ/9zaxYbfC+nv5u05YsaM8PltLM+Q7u
6urSXWVciFFrNyvL+gg+JrPkTpwZg+NjMdffBnMhUtJ9NErnE+y/lvPokeAE
PKw5KVFuwoW5+q29MREF8Pl+wK2Pdyehucc+2EKcC75MUdXO64WwKj+urN9z
yl+6Gy2PpnLghIO7Elu9GAKt1711RnQUPWndJ2DFAdQoFK9WXAKZTjeUR/vp
yEbNYdk+AQ6Uauc5F54rgxGDX6LOhQmgPzxugktQK3x8kqhygVkO3oYfv9Ua
CiIF1gvPgCWtEPyj3hUw1L+Qq98uiEKTvwa/T2iBGsuG8YwFVZB2oulgiIcQ
6kiT11PXaZlatxvDPqwaDA+obemaK4z2HNy4eSShGTRUFURWS9WC+9Jzj1dF
CaMqo/vPdixthntVR2QfetRB4KI2K7sVDKSOxIwOPGqC1zM0In3t62HFJekb
TxMZ6IS1ivxGRhO80JWp01rQAP5czrSiFSJo1PZNx/pTjVC5eLup28cGsIuW
GOiLEkEV1Pcx6ndW8icdlqwoIv8n8YKzI2vneIkiMh+Zf6+NeaMMTxTdofKr
pvLVCk7dILmVich6yPp+2/JKWCSCicj6ST00PikqdQ0xEakXqV/Y018e561n
oQdUfRdS9X6ndPHq7zenzktUP0h/bIsNk0/msVAJ1T/Sz5Fg792qDDbSo/r9
nOp/+FrtrQ1r2Og4pQ+ilyNDO8PunmQjH0pPRF/zd5Xt1fRlI6K/n3oUyT7x
KZ6NHlN6JfpN6FSoNC9kI6JvoneVjrZnTRw2In4g/uB1y5Qf/sZGBZR/iJ9i
+pKOlgiIIeI34r/8znQjvalzEfEn8Wt1zYqHocJiiPiZ+Lspfca6wXE2mkP5
n/AgIcB0k37PP+cowo8sM/HnHtVsdJ8/HpPxlTPVbHAmm8THJP6ylMT73eFs
kg8m+RjtjZ4ueZmNbPn5Y5K/TSOrW3MXG5Xw14vJeq8cLV2yUe5nfTCpT2st
K9uIw0Ip/HpiN6qe+vuj042esRDFC0zqP1yWKLXRmkX6hUm/XM+qFWjKsEh/
Menvq5USzbPzmEQPmOhBfr/5/m57JqJ4gQk/3GRmq2ApJtEbJnqjD+sc8EgU
JfrERJ8Po/M463aIolC+nvECSs9057ySgToRon9M9P+L03/kQ0+LEL9g4pdi
Gbnctb0MtJLvL2xM+ct4jktRsS0DUbzAhB9zWsx0DrcLE/9i4l9TrfyJxoPC
6BXf7/gY5fdMdqeCeZ4QoniBCT+MnJv+zNMUIjzBhCfctm9ey/0FCX8w4Yd2
xOOcO90ChFeY8IPx+unp+g0CqIafH75F+Fa92UbFn054iAk/og5FlJ2ooRF+
YsIPP+aKP0Plaeh3fr1wBcUPs6WXMgJSJoDiMw6i+KG6NkSpSmWc8AITfgTV
3wycdnsUbPn9wwUUP1JKswzVGkeA6jcm+0WCzl6/NUu/EV5gwo8Q5hmG1qkh
aOHrCd+m+KFWOnhf/tEA4QUm/Kj962PaaEYf4QUm+92bF2FyuVU9hBeY8OMe
bWGTXHEn4QUm/GhucL4QWdZGeIFzKX60bctdaZDZQniBCT8Wa4rckQ1sILzA
hB9DOaJVVRGVhBdYiuKHY6T31g3dhYQXmJwfvgvHfg6TzgSKF/86h+yc6a+7
53GKhvRSHnZOkh5XqMiAID+nkFspTbBjeXwELawdq/+WFh10rgSOlC98l3Rr
EP5Q1L3zrYODlVSesrgz6kCTa/OF7jUJu3/NbNlf3Yy3lwZb9ds1gYUbV3zp
RkFkEk3PsFNtwA/q790Nz24Fnr72udblDLRszteTiyOr8BFd8RiHPi40KY/m
HJcRRar8+fBG/vzAizzPNJraj5YkOxcoZWXhtvV1k2WTHVDUpG79mwgb5TIj
Jyeq7mHjl18LGt15MBJiPtJVzEYZc+8baNzpAPrDkVcBXp/hjJ/lweNoHKI6
FjRpczogwdu4PsgrDr61pp6/FzcAf1D5HeTnC3tP4FL5qecaj3ifii1LmsGT
+ryNDCZzOSKo7o/AgKqKNpg4t8qiXaYcRmsUMmhGAiht4dgRi6gcSGycu6wi
twP2+2c8/3WAjbxeRVnrbimDbV7Dxp7r2iH9yaSl+76p519qvhBq/gfartOr
nJnIReH7O4HX7bh6xvc7ounv4c5d6/oPRRy4xsxmf/HrwLXMuZ5rtsdNPYe4
eI6ZlMEXydt6wYw2bBfNqWrUK4WHccYpfjuGIdDQXFLOsR3re6hH9S37AtXv
le6Jl/SC6rBVrq4WF1/UkbFx+loJTVJS3csPj4H7QGjTCoNWrMtbWCmmUQcy
yx/FxV6joScXBvJfuzfjBu1PSlJlU7o81C/bGiyAcgZPXbLUacLUJ8zedSVY
rUUQiTcayE7KNOA4CDpSLt8CMa+ehn35Uxhp8eNiF/484OItXvImloHsqorf
rqJXY70yVPhxOwdyN+295vB0iqtZafPOvSrHhxf5qG/X4cJ4pumTme6iyIa/
TvyZv25I4Mzc6GnIRLqlZhqlcYVY6fv5vtj4Npi20/FQ8QATJaaV0qcLZuC3
m59Kala2g979rX4dOmzkMIu97cbFj9jnabnbtcvtoHUpMWcih4VuiSSG1R68
C2VPOz4UqXeAYue9yZlcNhK5PO+L6PsnmHGbbWKyqAM4pp89PKfOFXep/5/h
x4OtvkWerKnnvvgQ7bCXS9vhl0s74i8wioBtXhuUNfVcOWfXosELzc3QpHbX
30SlEXamXhaoHmYgV6ouOlT9j+GrPHRUGF0/qcgMuzn1vKrn0q3Q2ARjsGMG
2i2KPlHrP0f1XXkkRLktmI40+P0FZ6q/+gu/JS17JIj2n+r7cEzpExy+r6yS
ot8O+940bDKqndLhqrUL5xekgILg134fIx6s0NepT2aJIQ6lP0++HqHmq0HE
5kk24l44cBR/LwPOi5WcvMdciPhLp3SlwlScgswBa5diOPRKwuqRZRto7vnV
9d5VNpLg6wESKT1sVJaTNpzHRHYG5atCLGtg9SOJBFE7LvCOtY+5nmYRncBV
qh7bR1WDVQqYqFrgm5KZQgeYpplbZWtkQPq2oi5H9A22572QTR+IhekxenLH
ZneAhP5En4OgGFptL1hiY14JFi+zt6JsDpyfnxAe95yFYtdMOr3t42H9oovq
QSm5AHv1Z4d3dYD0gr7e6Z3tWGu6CfKXrYAAjrGn76wReLCEVqqUzMFjW12q
NBsaQN7ylbsz0JHlkuoX7PXN2KzwIvdMcgt4eNNOf5h6jii9WmO3T70eq3JH
hCLaudCw6e0V+VUiSIcfF0vy54F193m5e7pE0e/zNwaZHSrEnR6z7Hef5MGy
5LTxro0stG1TZOOS4VRcJfBQc9ilE5L/imR+PctG8s29M3LrI0FHwbHsP9Gd
MFkvuCN/6ty473SibYdKJ/yx76he2/MPsL7bS3jhxAh4B3COWnZ2wttWnWsG
ffHw5XHk7tVvB0CZyq+Eny+MPc7uHi4TQlvPyd/JvNwE0216OiXOtELag8Mn
tqWLonB+ntBL5Wniu25Jdg4bpTMPJHdkdmJD4WNJd0ri4e2N20JXpvbnop0z
4QDwgO4p3MuxK4b1t34NkFSnodsiFrbM262ANqjK3H3YBFfPygdqjTFQ1gbt
rNyRSjjDkH7y2qEd3Nwi77t0s9BBu8+u9s942PzUgkkfz0LQvRlaPVjdCwqb
LJ0StNqxvXyCcIhEDay/Yhqz+uQYyPPvw0Xqfv9e6blxfwgia69lfmo578GY
3vfI0aETIurqLjQyxdA6Xz2F1pR6CL6ppalYwIWXSTtUaRNM9ONx37z7575Z
KrP61pIVE2nx1w/puo6T9xU+kP7jfUUsDOXHBgb9Rvbf2zD5Y/+NBb2/XzOs
/ec9wKtPLfHmB4QxFf/newDJg0uNPk92AxUfSPzB3PfvSod7SHwg8W+HvNgw
Z6CHxP8ZR2jI0DFpKs7LTQ1Os17+k3+ZxqnIw0+G0gxXLpIKekDydAFBxt95
hoNpxrLQ9Akyrys4WTfWtjv3AG/X329W/nlf4Z40ZJo7FZ8aj8n45B91CCfj
f87rsPm5l7AgDVP5/IxTaGA5WjEVh8oHSD7Z+fvC2U49/28d/gfrcsuJ
    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[Polygon3DBox[CompressedData["
1:eJxNmHmYzlUUx+87DIOxjH0NJYqSQtFKKWknbZKkkBRKIqSS0kZaUIqKEiVU
pB0jxjYYjLWZLJE1W/alvt/nfubhj+9z39+95579nHvvW71D91bdkkIInRIh
5NO4U9gh7BceFB4SkrR2H+O9GpcINYSEvgdqfFE4IPwsZAm/CG2EB9jjMVVj
EeElaAcJrYUCmrsTOVnQ79VYWOMejf2Ff4TnzuBlvV4VdgvbhX+FZcIKxp+E
H4WZrN0tHBTuEGYJyeJTVWM11u+C5jthuTANHfdA2xoa0+5l3uu/CsW0XjQR
961EzjD8twE7vGepcItQUN83Q3c7OnUW9gmPMn8ba4OQs0u4SZgtHIL2lHAS
nz2MLiERfbUVObfCaxm6z8Rvg/HdCaGOcAExy4LPZmGx8Dcys5GbhW/N7wdh
Br+ziL3XmghNhTnY1hKfLyMm3rdWGCeMJf6t0W8KPpwqfC9MJ6YHsce2XC/c
IKSzNp142XbbvQh9lmGvY/otcU0RCgnzifc90Div/Nu5PUH4QlgttBMWCO2F
8cLnwhr8MVn4WvhAeF/4E92nsLYC/9iOfIkotzA0k+HxpTBRWCW0IMb2cz0h
Q7hIWC98LIwRkon5KfhkEx/rPxN7WsDjRuLrPHQ9Py1sE7YgbzU+nMD3ROZW
MbecuNmONPEvK5QUPsMH9sVh4pGOPMttTnyaM58Nz0PE0DXgvGzG/uuEs4Vz
QuwrS/jt/rIWWePQ5yA6jWPeujjProWXa62yxirsnQPdJ/hwnVAXv2Yw77lP
2d8Me9Yz7z1foX82uh5G3hx+r8Fva/g+EmINeL3pGbT1hQbCPGjmoGMTvq9B
7lHhd3AVa6vhnc7+YyHmWw6jv69kj/dfwfdR7DwubAyxH51gLp2Y2LZc1k13
NbpY7uXwMp/GjHOFP4TRwkch5sc04lOZGFQKMUfzh5iz69FtHX503UwSGmJP
A+xwHY2Efw6yxvCd55vG6GUb6qHze+ifC0YIw+GZi4yj8DFP1/d4/HqxcAl8
3hXegddjQhdhE/69VLgsxBp1/54N/5HIyIFuLnSN+HavXoA/cqEfAV/XsnvR
h+y3fq7P/4SF7G8Ez4bocAx966NzO3gvwM7jrA3HL7nY9Dbxd5/0WeRzwmen
zwGf48fxp/0xKsS+lsMe7x0G73nwrASvivDfgN9SNFdcYwlsKC3kT0QbbZ9z
5q8Q+7T7tft/qxDvAPZJV3y/HnrH7TyhkOhqaXwcus3M+b6SKQwVhoTY77z2
BLSvhXjmbWe+G2uOS2f81knoKHQAeXOuffdo14jrxT3NNVMMO31Guqf6nPTv
AkJB4toFGdb1mxD79XJ02ETcva+H0D3EnHJ/nA39VPZswV+9Q8zZvH7jM9/n
nO9NrivXl2u2D/TPMvbl9zPw6s18H353Qw/rMAmbs7HPdhbHxiehc0xck6Oh
SQsxX5+CZhtxcczODzF/XbPO4Z7QbSPuvhs49m8RN+fYQvSzrr1CPLf8uz1x
cXxS8LF97dx3DbQFScx5zMfv+dCn8O35/MS/E3xPEhfHrBQ2lYRPBfe0RLTX
eZ0GSobTtfrfGfu2YGMPfGa/FAnxHuA7QAHkJbPeLZy+c6UKRfnOR46lcfZ2
JI69kOG6cn2VCfGO47xxjrl2884H2+Q66Eqe+M7l88718HqI9eEaeoO5bfi8
J7osRg/fYd0z3DvehN77fHe8MMRzZSwyfK653kehwxD2mN7nks8156vvt77b
vhxiH3qF30eg8Vl0rlAzxB61CzrTuPeUd2xC7HPu3RuRYTsy0WlDiLnlcz+D
OfOqAW+vOf+Gkie2Na+31A7xfrwfG3Yy77kd+Mf0RZCTgQ6ZyKiFj7fjr7y7
ZhY+q4s+s0KsB5+lvgev4Nv3Ir8/qoeYY463a8Ox8JvrBdaX4EfXute3QltW
Y7kQe5HfFvvwn2m9pxZ61oTO/nRfdh6XRuZ2aDKJ/4AQ32LW4Xm+Z4TTb6+9
6OW1aiHqnsz7sQ32+03X7ww9F6F3S+y2P1wD7j/OP+fTOvJiMHmym73l0LkO
vtxBbjgvKiLb9vodVZVvv99qE0v3KNes8z6Fe7pjOp/1TPzkd+tA+BTmDK2E
H5OJVV9s6sfaUnQZgO/sm7PQwzwK8w7dg52Wbz18BvgsWAm96apgZ3l4HiAH
zNNnsu8HvhuUsk+E+0O8L6+EV390sx5eN53f5OXdQxLxHZvK+9pxyst1+9Nr
fhf6zCmeiD2xLbY7NxyLEvTIMvQp9yv36jLMJ0KUY3m/wbM0b+eyxNJ9zLQl
Eqf7bhIyU9HZ/yFU5D2SBu8K8C/L2iP6/T9DulPU
           "]],
          Annotation[#, "Charting`Private`Tag$4208#1"]& ]],
        Lighting->"Neutral"]}, {}, {}, {}, {}}, 
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0/dXz1EYAOCvkZGUNEhWJSKrzKzMlqyyMpOVUdl7ZGYLCRGyIhQh27/g
X/J8jh+e+77nPeeee8/73ptUVlVU2SkUCv1lExtZTy/FGNbK+4kRrJGXsJpV
rGQFyymmiGUsZQmLWUQhCykgnzxyyWEB85nHXOYwm2xmMZMZTGcaWUxlCpOZ
xEQmkEkG4xnHWMYwmnRGMZI0RjCcVIaRQjJJDGUIgxnEQBIZQAL9g54QTxyx
xNCXaPoQRSS9iQj6STg96UF3uhFGV7rQOdirz3EEM0mwRLFOvoFSyoJz1OLZ
EtxJjGarfBvbKWcHO9nFbiqopIo97GUf+znAQQ5xmCMc5RjHOcFJTnGaas5w
lnOc5wIXqeESl7nCVa5xnRvcpJZb3OYOddylnnvc5wENPOQRjTzmCU9p4hnP
ecFLXtHMa97Qwlve8Z5W2vjAR9r5xGe+0MFXvvGdH/zkF7+DWepzLH+CNyBG
sjn0/9/8A6S0Sv0=
       "],
       VertexColors->None]}},
    VertexColors->CompressedData["
1:eJyNl3k0lV8b92nQpJJMpZQGJA2kMn9TyRCSCiEkUZIQkkb9TCGJMkVSGsgY
FSmZzjHPY+Z5ONNNSpPh3c9av/efZ61nve9fZ62zrnPtfZ977+v7+YhbXzI8
O4eLi0uUm4trLvmsffau1OvbEMb/vN72gzWC1ctP1e8WoxDV1dfYrDuKdwVX
BL2KGGhN4M1TM6Wgf59hvFuMiXunQkPT5VhYumDnn0Q/CrmSiSduPWDhnMps
W54pG9GPpTgr31B4Hr+Bte8HGzn3bO7tdueAmni/s5VGQe5cFzvYn4N0LaHY
FQMcOByQn7pZyUFVVZFShTBZ51s8bUCfAtfXeWKL2tiQ8+/e2+pL4Zvd2PHx
JxTcs+aPD8WzcHtso1nBCwr71655kkPW87LYRouPZ8DdV1HiSxGFyGrRR+uz
KVxof94ZmT4Ceh2Pi2cLhdn1T54v+0xhT2yRcdPNIejLHlFxqKXgf7bY6GcK
BTO9sKC+m/2wEz7fEllGQbic3XwqjoLEpOS18YgeVA5UqXGR/pniDqv3P6DA
cSq7yPWwHd7rLK+fdKXQt+iqnTt5PoFHGb9vf23FfgPLF683Ujh85dLCQx5s
OGZFij+wbcb3HK+EqSYOri/sfHLQhYXHvSqU4JJG9KXvZVr5crAk1yQ/34yJ
YvHFUdcX1qPZtGHZ9/UcfDFnfHxWNgo5X5+cg2fr0KPrcrLqCxuVNhGv3bVG
8GSUGcMurYVHTlwpy5qN4sZnt1Rah9BxVhtXdtVCdXOPqeFiNjIlZZS+ewzi
SZS7SpF2DRxbLtcHf2JhxWSMpLHkABYWqsfYa1ejxfCaxSs3Fni4rV6cHuzD
HRHvgELzKrheCf/tT85BdqnWuZisXkzaNAx+ul6JvLTI57smmJhpC7q04FEP
PFujU04mViBupZ35qw9MKAvauGks7UZKwu3eyL5ybLMd3zhwiwlhhc7QDv5O
rIjQ9/KUKscab8G+qwZMWM5f7nbgQhuyJmfjst3LsPjc08EDm5n4Z+TA6FR9
CxaHHsyTryvFN7PDNS7TDNi6arb0OzZheu1dkQyFUtg4C8TxfGVgy6+/ar/U
GvBGnp66LaUEUzf+HJ/9wEC6/5H1SgfqsN7y5+2k7SV4VjU1Zh7NwLckx0nD
n9UIYq66L/mZjrSJ1ZfX3WbgSPrJuKDaCuQqynxNMKEjMPV4+6HzDFTsM1EW
5y+Do/42yw3cdLxoTtzScIIB2uOz5Xyf6BAIXSP+9D0N/MdXWxRrMLCu76au
WXUxhBN/i4ldpcFZ5KXHakUGrp18VsClXQRT82KTGC0aeEX1rjbtYGDPZPUW
bplC+AVcr169mYYEo+VWP7YwwBaa52N+pQBe6zbcjlpGg2ApS8ZTkgEBM/UG
/q0FUF/+7qLIfBo8Lg52n5FiQMrfV2CTZgFuGO6OiFhIwxuN3x5vZRi4eK1B
K6SiAP0Dz6aEVtGw2EDq11l5BlaKSzkZZxfiV9F0bPgeGnSCXE7dBAP7nLwD
ri4tRgJH45rQaRoO/Wl5/VePAQWbkYjJchqO2Fx7GB5Jw4Zok7ZOSwYecB+P
rB4rQdDmJ6NCnTTscPg+vsmNgdmjJYHct8oRsivVM2I7HQud31C19xjYfG6/
y323KqSEvNEUuUdHc+KNht5EBooz+zar2NfCQD3cIOoXHddFLsQalzHApyHF
26VXj0xdx0ernUsgln9ZT47FgKnItwspZxsxkLdLKGayBNMvIvqd+Zmwu7lP
IymjGXOSh+rX3i1FTX2zpZAKE7NTKyMbZb/CerdfRZxUGb4fly1cd56JXc4X
bWSG2iEaKsi1oakMgy6z8faxTAhEntaYFevCsN4lD57AcpjO1K7f28KEbm0m
34RgDyKltbLGDleg9uqh1EoBFjjqvQXh23ohIpxjdmNVJW5YWOlsNWJBV1P5
vb1RHyZeFTkmT1RC3m3dD8PHLBg40diOIf1wvWbPvtFWhdzFPqkHBljgTfA5
97x9AIYjGS3jVdX4tVE27bIiG0/iG1Vqdg3htmGNw+XeGqhuPfHK9CEbc41P
9MjHDENTb8Blzj+1MHEyy/ebYGP7xwSLIMFRKP90HNm6pg7Nc4/8+WPEgXoi
50NTHAPWbquE93yqw1IXx/trMzmwOFFy9fkUExbSxj2bp+qx3Xe+pc0sB6NL
3GaoaRa4lvjWl+k2QSlu53gamePVlc/2XFjEwYkkr/rerBa4vpQ+xBVP4Z2B
8EbBdRSE8lf2XZRvw9tdGjt96BQaz8iJl0VSSPqg8nJNaBfM+1hmqlUUnKd9
baVekflqaqbhsKkPeWE79HY2UlD/3Wc1/z2FYY9hmRKRQZRMKU/o1lFYzNp6
KZfM+VOm1tq/a4axxOrd50+ZFA5pLi7zyqDgat4uwsgZRa9h6l/1RxRimiY3
DSdQ+Ph7zfSiTCa+bvWtzjGh8PR9f8fRWxT4VFY4rnNgw/Jhw81LFeR54yNX
fxMk6ybwndAx40Ds+X6zjUoceGyu0nqUyEFgnmuG6lEKn8YN5EaU2BjWVZ3T
2MuGG++HGyq5FPzEbJP5qpg4JLng+do8FvLXbg80Js+dLLdu6CWZG2qiardp
oUyEH4vp9ye5sixF1Thr5QgefLW/21tN5r/i34GFyhSc+NfKznk/CO/0VE7W
j2FIZWVuTprh4My5K0Hp8v1YeUFuq9jkIEq5HNX/0jhIXft4U2RID9RcPr9V
rutHoZ9tbkEIB23VZ5K7eTpg9UavWiy7F3sj0uYrW3LwTLPg6nRFC1Tq7Tbp
0buRrCH0+6MKByVa3iqFtxqQllRBzXB1IFV4ucbwKg6s7pr1jy6pweoLBZkK
DS3ITPwhzJpi44LseYnkYTrEc4em+wIbULN/5Ut0s/G/OOT/1m/4H/Vj/4/6
6n/r6/+tn/j/rK/7t/7bv/Wi/1X/3/v/X/2FAx6e/nxgFO4Ob3TPfmJguZpP
iNFJch5yJx2rBch8SJGxkN3KwmVLZ7tiwjdCoFvP8WVBMeNJ/aOjbAjpe1/4
m0hBteTeLj4OG7eME7JTnTg4Xea8+FglBd5zF7cN3eEgPGH5xq/dHAT385qs
bCbnTlj61PgKCkOZIUl+OuS8R4/HjPWz4VXxT7+nD4Xsork9VoSj8pxMVbyz
WYiJDaAsybkP7lvnIUk4avb5TPudbJJDKbH7zQopmFrTzt/7QLht1a2uZyUj
MJs7MttAOOrhg4Id1eR+NXhrFY8kDGFRbddcOuGotx81LT6kUlgTYXpr2Yt+
HEdpwTfCUStmB6XEnlLIGOtQksnrQbvUDjVTwlFnQo9FzQmlUBhwqdyvpx1a
LK5rvz0I1z2oP8wXyQFbNFnaaboVpxCzUFuKwqY1kvt6/dh4Pahm9U9AMw73
uB2MbeOAE3HmeY8XC+bTcfMX72jE8WwTW04QB7M6/na5bmSux+0WWLiyHtnJ
BxK9JDl426vcFds/iqtRK+1qL9XhemsJjxmdDZeheiEX6xHs1ew7d7WhFon+
5l6e59kQhYCoAnnPvg+j1s5Vq0XDx5ure/jYqLowNEaFDmKekurydosa2Em+
rzQvZOFYZH78W/UBuAo0m5abV8Pg2w9Tt2ssLJSP3PJ5tg+HDnoZbHCqwiO+
cz+NFFgINg3/9rO6FxIG2ulrQiohpaH4jPs3Ewq6vtPWaT0IeFLkmfOpAq5h
3mZun5kot6E9mlLvBt9JnfRfP8rxS8t041sfJiolme/CNDsRPLryaJtyOfZk
7z+ceoIJarDC+VBuG2LdpXVfB5QhVGlI30OaiWBcG57d0Ioaiyr7TYOl+LPo
qcKrOUzslDvTPJTXhKwGHdpT3VJ0CrksVO5i4Pq9eLW/wQ1o259ktragBNlB
p/J2fWbAX09rvWpYHZwkx7ZF7y+B3fozpg9IfojFFk+aRNRAfs86FeE6OmbU
/uk45sPAHyVWXKhTJab4FH0fOtBxXDrv4DVHBt6bL1eRfFuG8Uw1Xn5BOqQX
C4QtMGOgulSuQsi8BJYfdlbfJ3xxddK75JcOA3JWJ/VOO9IgfGV55dJ7NORO
8/XpqxHO6fEu5BktQph0+/wgcxrSpbL7Fu1mwOXEe+kFlYXQmwi7tliRhpDr
nmVbCF99tOL4WAsXQntQcdvdDTQEThmHpxIu+nNmW6MI4aLPvFWrFxIuCkoy
0I7cxkBH1GVB6eEC/HTSO+i3hoZkP5u+IVkGEjYVaIdfKISKUG4izzYawh+G
nY4mXOcrIuR8yqSI3APBw746NETVddLfHmRg+qZL4K0UwlEyFlI8bjQ0qx3g
33mMgRXmzZFT9nS4xoWp+ybTIN1RdID/LOn/Rj2qMaQU3Mbvw3nGadBKtDQ7
6cnAOZusoAXrKrDekC7pt5+OOy+ETs4PY8DJefvlR4LV2BNc9H1BPB2FNSMq
QmkMvGk1lsDHWqxakDrtz1uCtRLNPEHVDPh8f8zbG1uPS+989i/2KYHDi673
tuMM9JmdcUh/1wipezpFgYtLYas1R++lMDk/n1M0UrgJh3tO3VoaWwoTHvUy
HXUmPoR5RrZ4fcVH08ce91XKkFcbvfW4IxOqs6U2O/Z04NlPiZQVo2W4k9sS
r/CcSTzsjMP7Y1044PRa2/ZJOQ4JvFo/v5OJjnjpBP2dPeiYvOpjYFkBI6ZI
avRqFt7e1TzxTbMXurldMp0yleAvkdH5bcZCs6SvNt2pD1GSTeBdUAVaZ+/3
9cQXHUb6bpcn9SMw2jSvk10F0949qSsYLFzpMv4782MAAjn2r4/2VmN05V8P
7n1sLDrWI1qhN4RlDQZWgZM14P/MdBqJZuOp1aO8ne+HUXrG0CH4Xi3sB2Lu
Cv5h46V+mLL/jlE8FTje+0GiDnsd5xb5nyKey58aWpfDQM1j0eWF9DoUrJEJ
yPvAwdRUUPo+XhY8Bddkr1nfgJH0DJP588icXfdU9t5SNs7/mo7Pd2qCcZTw
qMExCrVSTWcWknx191R42Nragqb0DcrxxH+/h9scerud5Ac/1z0bkzb4PMvQ
7yYcdXze7b67URRsZ9+ey+vqwv47n65GEI46pOAjMUo4qrqH0f9Jpw+fLf6e
DyActfXyOzE64agB1rS5MAaxY2uExWAN8fBXiz5LkDn//RPjyr7hYdz4Z4f8
ibfEw3W9RNnpFGx0he7vrBvFdPcj77YwCjpPeW8ZkjwplPmufqSciWl60u1w
Qwr16+KmPntSsJBlqfzjzsbvCvlleoRHeO4e67YgeUWPcEhJPssBvVrp5Bx5
4r/fOWJzXxDf1TwUG2tGoYdrToeeDBulQ9xbdjSz0cTdzGrJoTD2oP/DrTwm
kj6zDt5+y8IU95nuiXDCj6M2NzZrMpDjdcdP3o+JqUfnMyUuU/DYYZkdMT2M
h6p59o8/j2Jm3PRtowKFW4ohwpJPB8FVdXk2fmAY6Tv7PK9PcSDx2O1s79p+
mI/dTY3qH4Td8+thO4o5mHT6dNnfswebnH6+MPzSj5GsBevn3yf1V+PieYbb
YZ4bzz6W1IucdmGNvRbE8z125WultWBmfs0Sp5RuxIkEttYqc8CXrJWaaN8A
Mcl9MfWMdpxcIHtTj7znmRWavUfGq3H+z/sGVVoLTsRe3xhIOOrivxyy8b84
JEF5u4u8URcqx78d407rwxvbraKxrhwY9UcvkbnOgtAy2eLP2mwYeTH2LiFc
Ue8uplhcQEFFOvK7Psn3oj8t4+frRpCl4ThqSN7T3nF779gYwpFPMxaxFnzF
+4wV811L2DAI099QaTuCjmlGpGpTLZo6Q+XaSa5lb8mMDuTuh41yirK7cxWy
XhZPeZM8GmnYl/xboxMXteY+OUDyKNC56h9bwkOOeS5bGb516NOcXuGPEmjb
36z21Wag/MXKPd/UaeDi7njp7UeDFZPLLYTwuaWRfeQCct63yPBe/ZFCcs7l
RDpvHRMeNtK/dApY0OKxb8om/Dz/Z4pzP/GaGYfAoZ9Co3DVqnb/QrzG9fEf
qb0xLHJ/MjZde9gPo/PqUVc6q7Bd3+/TdXJfOubJLP1Afl993uwjK6AL26IM
i9X3MtCy4cFqZb4i2O16/PYu2dey79bTC0IYeB3iRSXmVGHETejYw0fEW7ty
6nufMNGcwRemL9MF1lmhPMb9cnzZx8/Rru2FVZhKEL1xACHWC56wiB+03LBh
md9vQmFkzGLD5k74W1tEXZfmoCeE+7kQ8YS8k2JyRrbEJ4LXKAlVUNjQLVWo
tXUUq/JXuuoQD9bRvhgyZEQBOkez7nlT8J7gq5iJpeCWFD7TVcKCiGhsL18r
hRmxOecM8igY2Z40r8gbAv+wvkII4a6pG4O87oS7FL082ReXdeCNcvKzBmly
zxTW9l0OYaMw7pz+/ifNqNJWWfSE7Ot1SaLSBDWKHRccfta5kjlWkNdygPiQ
w5T6voPTQxBQUl16a38tJvWXCgYWE291fJ4YdXgAUSIluStsqvGJE/dFWYmF
JXbtSg9aevHOJyPPMbwSZkK5CXxfmFCLVsgIM+jG6VUDl078LYehqLRMpxET
XbqL7rtXtWHMttt55/0ypCTnXhd9ysBIynuusVc1YInuMZFqoGPr6XC+Bd0M
nOUZqFR+3ADH8MFe6eISfH36XUOe8EC8zZK4xsEiZBt9EJEgPBB07UvHdsIV
Hzc35FRblUBBdcNhiQryvWr+3mDifdztGaayxPuyE3/sOU+eM5AtNKBFvPK5
lVtBDpmHzV8yg1VqhxGvvWqLoTIbmvY3VRSUh5Cc2HD2ynANHqb9+sFzkgMm
c2bDxCsGjm4f1/f6UgdbdUl2iwkLLatyr9237sONH8YBUVOVOF45skSXzOf3
hfm1mmQ+K5y2H0mS7sPW4O7+o0coSHjduX1vCQfLvOpEKnNasGPW1zfjAAOa
PDlS0cHFWMb8ViLjTIOtcmFdtjQDIufzI5uCCZ9cchL3XUHDFq0mP0nCJ9vP
rP4dfbwQP3VsMrdI01DsulbNKYVw14bDXcNPa9F6Y9FDBZ4ShPGd2v/Dg4HH
6+qXHfheDs0yJaldqnT84+63f1sbE5usHEPObuxBV/QlsYYTFaAf/rJ5M/Ea
d+NC56qKZvwZ3Lw4/n4pNE00HBc5EN8JyPee4O+A9PVJRZ2eMqhtWP8jh/jy
2pnd0fOTOPB8WFekZkD83y9cs2o74b1Hpw0O8RZC2p+7WUKcBtGDWvU3KQYS
VUVEbSIbkX/Cm1KbW4qEWTelKx4DuNC67cjvqSH05vHaehAfUo/7Ji3sxUHW
bsWGW10cGPCrrNr4lQPqS01BDfGULpcH8pXEU6xN3L7KJfYj5bhOnj/xCAF2
s91j4hFVEu+C7bc3otw7zWxiORvHaSLHNO4P4mhXhEivWQ2abz//FvOTcPit
cfPliT1waTjwiz+7Ap++j6ZnSTHB/PELvQtaoWLqEWDdVYrR9jm3mXcYYCS+
Fg+SqIS/0KUYszN0tH8sKpki70WWI35rr2MhZMNC/U0JN7qu2ZESVk3ycbtl
h7YI2W8t+H6f4EDcuCrVr4kJLxfxe53knj27IaEiQXI+fP6XL2MZHJhK0ouT
fzFRHfcubd5EPeb5aZy8KsDCLp2MU2tkenFEPErBTqQSaVUCx1SOMKCYtjz1
KuHI1X667daxNLwedzK/9rgJpcdC9tb1dGLpyIxTN7n/iotC74+R8x9ceEF4
lpx/u4iAptO0YVzX1N6qqsCGa/foZq4dQ/hTEbkwqLMGrZF7706UMZD+opJL
2bgecppCDZcul+Cm+omA1XtGkTrHVikvg8z77Ufj/xhTmLB8Pl+V+GmA7gsd
TeKnUfXffX0+sfC0TlaNT4/CF2OrybG5HIhFr5498LoFr8anPOW2MtApf0jK
JbYAl2UPbjJZSYO7Y1tR1lEmJPpXrpK52QZPcZ58x2tlcI6R69xHcnNb/PKY
JJKbf17yrlMjuWl3qm9exe9yiK1sbL2X1gR193ndgsS334u3zr3JKge9rfpc
yOsm8I+V2Ayy2aDfTXMXIH181KMOhZE+RXyKN1RJn+DPfFPWxA9/fFor1ska
gcv4zXw5MQqZ+yr1k9eNwNAiRFy5dRS/v8prKamQOS20+dE6UZK3u6RVUxpH
8VDCWZauTEGqQ/GYEemzZ/FJpQbSJ/+t5w1Z0idN/XaaGVk3yc4nK5usS+lV
3/7P/kMT1wsKMkrxo9w0UzG6Ec5RF31Ch9goGM9fInx3GE+TYyQjrUcR8F1r
qcI2kvtVkTtPk/5nebZ9aCf9m7UzQ/+zz/MlLx7ljpVivd2pC9mxjfDvCCxM
In3SJ2Ktlci6rDgH+Vdk3UOxlxb8Z92eScU0e9LHNYhrQz/p0+Ex6b2L9Ekw
Z6fW+g7jeMT53XVWo2hdPcw9I/O//4f/A9g9thA=
     "],
    VertexNormals->CompressedData["
1:eJx1l3k0FO7XwKXsSlQKFUJEqahE6SaJVFRSKGQtSkmiUkLZQklFkaWyL1EU
Ul1CQpgxGLtZzWDMRJa+2d455/f3+/zznOee55x77/Pc5XOVna+edBMUEBBQ
WCQgsJi/l10/vDx43ARlj8Rl7EIurhgxdPlbQYTFB+jvfjSlAcG48ELSZy7O
6IccX/GFCNuOBa3G6iIYe6ibGJjExZf/Ppxu1GkFmU9zwxHK5YBGgaWlPlw8
9cvhEim7FQRuTwZMf64E/yjdkTbgonCGRd16ZRLE/u2O+N5bA/sLVShZglzU
8e9vVUomgc2jlzYb//wEmz7rfLmKUdy/85RV/7o2+HlW91TgzC84qG20oOQx
ik098ptU0tuAXNjCyLlFAILpEpmvkqNIvzbinbytHYpdZPSVL7cCV3AZfTyD
g2dzVgmOVreDzXZfkz9WbbDcv+lR4w4OxlYoGxc4dECEZOooa2sHxMBLG6vy
EdQdrLwXsIgMeVR6Y8U8Gf5O3RR7qTuC6f6PXGfyyTCy5UG9AnaBqW52TMHb
YTx1z1W226kTTKavZKRd7YG/dter34oN41RsXBBBqQt0rVadb1jWB+c/7jof
6zaEy9ctUs0Y7oJbAkEpM4n9kOwv3BBZysb8QJHgLZXdQETNSn0xCliZfTqQ
vcDCIwmDipZvemA9Z3vA23IKXJSO2Si8j4Ul9isFBOJ64ZTE4rf59lT4l0fb
UOkziPkfO/BQbB+sUyuXbS2lwu4HAvnPLzKxLKZWI71iAOoXu0k2BtDAStnl
RwMysKVz/Z65LwPQdsF5Ru4PDbJePLxzoZOO+qe15gf8KBCu/PfiFRs63G4w
CJ1h0XDO4Vpr9xoq/KRNB7Fz6DC+/eA8cqlYLSg/LFxLhXyV1TYXmHQYrEOX
GQ4FWe5lpX/4+riFd5LviTLAZopGk/wxgMpCTusU99EhRKVay2c5A1y97FMy
3/Rh/H9Pt7AlGOB7U9hP5R8dvK4wSKPePSinwfW7y2SAej1niex3OtxTDNzq
qdOFSl9Oj9c0MOHOP/WP87dpELEy3Or1RDuW/XeSk1PCAtjzZ4beS4MRxbri
6oQ2THDbTCR9ZIHjkNZSUXUa1H4p29dm1IoS4tcOfi5jg22fCMdoHxWqdoip
d5JbkBaeTtWqGgKHw1GF29ZTQNeBZEjRa0QbJ8EQ/cZhGEv8clc9rA8WlDxT
nn/4gX/WnWYnEkeAG6u68O1UN2CB7Ym1dt/xnopZ74smDiglJ95iZXYA49Bl
15LwL1hKJ2urlI6C+Hzwtn3JjSDbUFJwN7II498OPnuyhQe7t8tskO1uBMcr
OWYDC/k4lLxfZJ82D7LFBfPEZ6vA5rVvxOeVb9Am2k7vaQ4PUh2OhQvZvUBK
vWCGkFQgPnmi6eU3x4P2RTQPW98XqDLVqq73MQiTb1uvcuXL90wEdYj7ViDR
L2eIWeaBvc/Zv0oJPJjW+nZyVu0nPi6ReNCq7421S9dTSJd58DV2WmR7cTu+
kJy98499H7XiE9qt5LmgnbXm2sy7doSZuiOpz+LR3qr/kJMcF5JCL5Y85XRh
rndCwOHUt9j7rZJqvGcUYqhzE+8+92HVbFjY9vkCrFFbFpJ+iAMHZTm7hBRo
+OziZFxu4Cfc+s1lh87eYXgZ48YJWqDi+PVm5Y1VFfhoj/y+GYNhKPgWviXI
kI5ZQst3moRUIXtb5e6924cgZbOpb6wtE4k6lK0ahj9whWJ6Ye8WFhz39BV3
UGGiSQmx+rJ1PdbnVl0u28wCRmzbjBSJibUWBAv65SasSnnb46M3CInHuX+0
zg7i0Dv6vScNBHxxJ3PT5FEmlAvPHDiPg+jy3MhMmN6KX/VSLee8GNBButa4
dDELr0XK+PjPtmHqrf+CCYl0OJ05/fVYBgu3HqmyXHmdjJtcdBy2ruHnm2PJ
vg87WJjokXHzq3oXeslqHrdbTYNv7+0tL0Tw72ulFydF9uAvZmVgYCUFvqV5
u+UvYeHI+20bL+/pw1aZemIVUuDurZ5JvaZBPHGyPf3B7gFM5963k1KhgFrM
hWHZ+4N45/M9+6/PKfhorS+aKA7ALE91skp9EM0mZtPeRlLRT8VWuE6sHwQr
KtdJ/mGixMy/0DfPafhqa+aO01K9EKsmO/3sABOd7Tb4ch3o2CUeIAzLekFo
dOWdyc8M3BH9h/wIGLhwTXOfxMYeWDv8TyV5IwN3HpT7s1SOiaJm6qkU824Q
KWHleYTx/0tX4+36ESbOPejntAZ0wV3YpVk3S8Nwh57LzIZBNBY5bXl/gQxd
838yHqnRMHmzwqd+fxZK+Iu/K+LX5TvCBO8T7lT00Y1+L6XDxrV52iqrLMlw
NrJplUwKBYVuvXvYRmejTYdRRVh2B7/efbrenjiAHuXjyX+jhzAvkPLdTbwD
HDbdt05b3Y8GifHLx/YO47mZpbpNzDbYVPOYdFSzF/OPbxVKqRnGM1d3+mjy
5Q9/3/XYZd+NR1drJ9SdHMHj5fpz4vZtkDujpJZ0vxM7DJ6kpZFHMCTZLf1o
Dwn6nwV0+aV0YMurPXuFrDjovCym674jCYaVnNj4rg0fKHSlttVwcMtZwoGj
Q61QfLJN2eNjK7rc3bBpbPMocv96uZjebIXSyuMHXIsJOGaQe21/1CieqnRa
oiDZCnUc2z3mVk24tuXCo7yBUbx61mvySjoR3rizK4/q1CNn6L8ARU0uupY8
WTK8nwiHTv7NpQrVorD6i98xnly0yUo/v4VKgLIGy0sWhEosr5gkc9O4aLro
cFDTAwJIPTeq9dQoR6f5SiHjJn6/njj49pAWAWrOGLWSc4rQeTBy80seF49f
vOFCzGqBY0aZ5K32aXiH0+m6RpSHxbutVB1mmuEZ2WDFzjOHINzuio/Gah6K
CG1vHjvaDGHc3eWBmiYQfHhln3QHF2OaGIN28kTYIsJ0/BNqgjreA2/WavCQ
2VA6rri9Cb7/vMo7q2wCD5QNa46NcNEkKeSsQSABFLQexXa/NsFFSh67eXo8
DL+86NzTdb/A9ivN8m6bCXg8yOgsWuCii5TF1uiaFuCISsQSnA7hpJz22rWm
PMwwFuv3FW+EEee3j27qmoKyt/bK6hU8rPHsKA140AyhdllG4aWmOJN3y3Ha
modpepbXo8fqQS1PYN2zu4fhNTlHQoZvJwS9f0nk2+nYrTQXeioNHEyqo36q
8PBlRErUX768JpgYEZheBJclW/z+SPJwgTNcwGpugvO/3c7xVMvh+q+1K+7w
/Vr/0Qw23WmGBo/bMScIlbD535UvN/mcViBcGt65qwWUevs+iYvWQuSH3H3T
EVw0Dr1vOTTXArXZpb4Zu+pBd0JdSNiMi1KyVStCLxLgR3GubawtXw/BzrRk
dhR7mM4S2p0EEGn+mLGnlACLdGx/SmeNYv94T5u6BRGGHsc8jitvBcoHA7K2
6Si+3K125WcDP65CijJKP7TBRNNlr7V9HBSUu99y16IV1liGKDx73QF/hNQO
cC5ykPt4cKihqxW0t7zfKx7aCf5JZ3uLhkfQq4nrcsiLBK9lRLm/z3ZD9Uf7
53edRzDgzUJsolgbHL4jFi2l1gsr3luGuBOGUbVjvV1YYRvsuL3pvdxAHyQs
lbAI2jGMJgcy8/od2+HjCqZObsQADFi7yVIeDaHOnKNPrEIH7PEVL18fS4Ho
xHjDpAE2Nr20/v2G3gHHVpZfWnWSCpY6o/J1G9l4auPdSwblZIji7dewEKNB
0kDowE1XFh5r8+UkJndCbNrZTeEJNBi76mJg6cbnq/0rLKwSumFxt1mdmRUd
wi/e+15ZzcREK+U//i+6weXnspzHdDp8nopdcY/JwKdoOrDjQw+fV7seSbsy
YH9IMWfFPB3lFX0dgNoLwdXLbomTGNCvOJ/wdCkdH0a/8k5W74e53YkVHtpM
6JANFl25koYEmlr87fAB8Bjp3LZ7FRMWG5IaU75Q8Lr6CXL0MSqQeoToW9KY
sOtnkHa4MAXfdJwX87Gggti73imTIibU3or0eM7swzH582aRWjSIbNyQOp3K
BOXsYet7BT2Yo7uQMCBHh8ovh39f9WTCZAnBLNWtC01SE1YdkGcABHYkLYgx
gTca7KcvRUbcubNz2RYm7KHeeSV2kwE85juHvfltaN3T+YpzYhC8v/+xEy6g
w3boosRBKw7Um592D2cBKciz+10aDZ4L13ltSGrBQMr0oosNbIj0iau5ZE6F
YHmb6emyBpxe6yT/etUwfDSN0pr7x+eoiIXzvqurkS2mrnU0lQNnJV64ORn3
wEWyc8TPQ1UoF/3P+mUaB4w+PXu6LKYDpqpXSfZ2lWM865JIZ+0oMBLCAvZq
EGHV04rj0oIf8OtQAK5ALjyWIlVTT/+AeJpP3WhuJkqLacesu82DH6L/yix9
U9DLxkAhau193Nan/N+SWR7cyun5dC4uBYU11qc+EAlFC2F69PAMD1xPbXNU
lK/Cru4lwlssr6LI18VRdz/xoCxRroBMa8KRh8Gdlsuvo9PMwto763jQt3V6
zPVwN9pLtm82yozEOClZQY/No1CgftbG4WA3Cj8RPfWiORGf/d3Yp6k1Cu90
1Re2LPSj6/MbRcuUsnDNNylW2OQIXDps4PcmgopLZsejVQPf42yErc5QwTAk
qmiN7Wlg4AGblybH13/Gfz/X6O1VYEOET7qTZAEDK3brpXS/RfxXtSmKIseG
fWEK0sPtTIwdzHZX+FqNAWTpIyV9g1DjHRH76fsgGi3obzlFqEPpjIqqaX48
hZy32/vtNguXlWYNPp5rxLgU/ZbG5ww49tA94kEhv+8+fHBc5hUBfRcRS/z5
+RPi3jki6s7G0NXHwg/va8WgbEa9fzwN3isfNxVKZ2N47k+TKMc2tFlTYPby
PRVEJ+xagjWHUCxKU9CQ24FesyOYJUcBvXl3o5ZaNtb8uySZk9CJaarJ4z1r
KHB1JPeZZhEbPw30Mgpzu9FOcduey7X9MKnBKjr3gI24yYBS/LEXv0gp+2Vf
74MldK/3Dw+yMTO01Ot+aT8GbxYy1DHohTzIVYsYZ6FDj51f9BkKHjkj0zwm
2wM3r2jNMx+z0ElkeqLuGBXp02b9UyLd8O1mxvIMQxZSfhPE0JWGlQyXXpJS
J5BJtp8Xkgcx7FNohZAGHZuFTsb2K3bCjl9XOsaXD2LFkbEwWwkG0v2DGLnG
ZNDK142q9mfijCUj8iuLgc7FAvlRNzqAk+C5zYTEwOGdt0KGvzDxi5z5EouS
dnAJM9fSU2WgMSWlO/nhIFoLH5Tum2+DsPUCS+Wu09HbYIOF/WUWviVdf2NQ
QoIptWvSCjk0FKUSN79exsbtPg1JccUkWPvW3takn4ragXPvA2vYuPtRn73k
WhKIFzZIWktQcblb6ea5a0No98AgZCK6FaQfGV4jbKPgk04txRHZYSQucmhL
F2oFZ3fRU1dT+jFr7fwfueJhPFLpRwkLJYKN/GGqRHMvzph59dgfGsFC87ET
MpJEMNe7sdhtrBuFGuYqYwgj2JLqntb4ggAXzEUozmJd+ESr9ND9Exw813+y
8QCfN1ZOHZ5ky5Jx9pxgsXw9By8fvMxSDWuBxrvnU8jy7dhtdmRUR28UQ3vP
G3zDZvh7fFximSwJzS0nPQqSRlF3U+mrAsFmGNqfknxZjIgis+6KV6ZGsfZa
oLyzRRPUupXeLBppwn9v9t48a8pFB1trMcc3v8AxxLsusKweX5U7Wzk84mL2
iXrSvvlGGCRdyjMOqEX51tQNzo1c5BoUJ5Q5NYKqAdjr76pCRd1CK+t5LirQ
QjJzfjVAwFTfkmlyORYK5JhqqvNQ34rprwYNoG3rb58E7zFoubRulwkPrYbi
R2PL6yEsIO+Yqe1rdD6tZe5ix0PHhqDkrr31kDdq7pfZeRivX+A3ZlceqrY+
yDva+BOaPf+bdH/1HZNLtf8eqOMisXacZljQBCfMvXf0P29H0caOB2aDHFyX
+CswVJAIp5MuGhQcpuCEScCvzsIhTLtpGBtKJ8Hvevk4RxkGVrE8Q2VlB3H1
QvfjH6vJwHw7KVZOHMToqHhNYjUVOem7iB7uPfA6jbi35D8WpsvrhJk39uCs
rOJqTwH+3CEuqWrYwMKNG08YDiWTcLK22v6FEB3urN+r9T6OgcWzX7jroBp5
Y6SBUFE2MJ5Uq/hPkJE+qiG5eM1bDGi/cdgxcxTMPjiK1FxqBpZF0ePNz0ax
cqfm3gV5EojGOhgXapdArwTVsamZi/EfXLj/xfA5ln38138KVMgq/0V55cNC
u81BDqfHusE3w0p47gwdupZLZReuZOCZ/C29rAsD8H1MIq2mvBOGPbZ+9T8/
gheGGCpPpDrge6Lc6w7LZlD6PDilcfUThp4Jv/Rwigu829KaJdJUMPDsOyNm
R0CDqXzdhKYh6J66/SzJncHnrx27K9QoaKwYaqv/mgaPI3K6XwrUIX13Yvr2
N1x8ba0dnzX7C/ZvXCTv8rYEZyQvhjVt4PPnsrHPzHeN4HUg3+NtERn7fBpp
XyI4qLfR7oJdPp/PaKJnCO+J6DleFO5TPoqNH378WxLVAnnLd8qoG/Whh1KK
p8P4MNYr6YvuOtkKAjrmoap7qciUjDAPWT+EhUYEtsoLErRcFnYQfkhHptuS
yD+Tg5i7eM3Z7dfbIYYQL67NYOBX6VulhQ5M5H4wGfShdsC5BYvf4gmDWOk3
f634B79+CLfcDXHpAofPbXpv/FhYsXWr9UkOBUf27z82bNcDsifTJWtk2egc
E7/2yN8+vHsr8zE3qQ+USf82+F1io7hLg8jeiS5s2yamvVqeAkIp/33OcGXj
JmNHa25HOxpEJixxf0kFz8F2uYscFp5XVQ1UKSTimRO+Ru583tpGUm3WnKAj
79kZ7TldxNTlh84v+cQGYvq7Nm/FQUzPXG3Zr1aH59qHy585D8Jb0cIs2WYS
wuAge+vBBDRZ2jSZe4kLlYtt7qnE9qF8plVgdmsO/j6o2Mmw5vODuyupJK8B
iqXedMEi/lwzeXPDaBMRdm2d08k1I8Hype4ya+kcDGuSenMyiwRza/7IOwTT
QHDboPD+USY+XnqVVXS6F54qPGE+fUGBhHPDg642bBSUUhO8+LcTPuywVj4m
xoAQJ4mA5yfpmBlWsmJb3ACsaXA19VEmQ0pHxZvVQhy0ak58mh3cBvceSuW+
c+qFbTfPrL9xdBhL4z+wNzI6oLRE4760WDvs+0YwvM34ikpFel3Bc6Mwcbwu
6IRwCn5TepwlGZ6CNO9t9e1/eXDVTGbT74QauNVVSo7fWYizBsUdnaE86JzK
HO0soUF+8W3ZViESWlyraPHUYEONtWLenVMUWL65fOr6tV+YNP5998/nw0BW
uPRU7TUD7E//lgk+R0XTDSsraHuoIHnTXHxGiAFN8dTLGmVdmHudbdHsygQH
YeaNjlYGTBmYZDHC+rGC6+VdxqJBdKVPXs7F7xAp8sasNpCL33K8lnvIEOHC
/bDeJ2aVmDfTVqRdFYebp0hXln3hwc4pjx+P+Ry6euOasvM1ZOzKPJf9isIE
mvetnz4yjVjmNiVI2s1FS8KN2XPyBEih/Htid60L1yw0RkT3jCCHE7PK9XEr
+O19MqM0QMUe/cOXnm5n4w3zzxtyye0Q6dehp7aHiVFjbvNdRgzMqN1iHBbW
Bfo+RhwdRxZK72sI/ms5gB40mbHDwf3gZv74VHAbC98b6DU+MiZjuMJqu3ND
VDB9dr5UO20Q7ydXi6UtacbY/gt5u22Z/HlnTsDmChV7X4f3OdV9wm++pmra
hcPAWDhk2buoAZv79ijULjzCNmnvnZqneOClEm707coPoO72mvCW5iL+NM69
1NIKFwYOXfBSLIHoh7fsprO5OO+3f/xIKhHiwk+qapsOQJ2Qi97Lj2z0WbbL
332uCw7sL+7Wp9Khf8mqqTIGFc2dWq+YP6HCjUDtMduvZGjIob16iVXYunZD
yjHnUVAr/7Xs5/MSdOtXL9UQ4uG0tX/AmmL+3EhXW3pMgwS2jQVtXjkcTC6m
hq2XbIcPWdLeZH0a7NjkmcV6wsRM+qq+6/L9YK4RbeH6igYUuwTnrU5t+NJh
5YTxBAskNY/f8kwhYizZiOr2ZBQtznA6nWcJYPFDQeakdB/u7SJsHq8cxkSV
9cKEDyTQtuPWBK7pBVVDCWPeomG0li1+uOdBJ0QuNn96nfwdhl8lFhU056KO
wKdx9yQe+H1y/gt2DHAxPJv/8msvaj9d2jWwkgFGrikjshvGvt5bkM4aUORh
tJJaiv+XJlgepk+X+R6Lm43urJhcxcPRaq1LGy2a4cuW/JnKqVhM1YnrznLh
YRt57w61Xz/BLsrM0Dh74usnM+/cHHseRl74XbzibD14BiUtVHkof4tuvblz
ooGL/zsTIcI8jxjmFwsrC9zjF3/jomnolv7sL0RYXP7wztTnWFC/3xPA2MjD
ddnS33/pNIHA/1bQ9QLtmQPreSjv0l7qQW6CF4b6224o7wI/5xLmUwUe9r8W
lJBc0gyrf/tSXWqD8czJ3U/v8XngRtmJoBE+D9iJyl++H3MP5k8E/6Dz9Ypf
KHG4xddL/th9SLZWH1I1q46BCg9fyJNWfrnfBHJGUXEbpYJwKp3d0CnLw+2b
x6HtWDM8kb2wsXaDAe45OyZ+3ImHVznDJ91l6kE1UZuyFXei0OPPGzRruXhk
dJNIcBwReJFxAlVhwdBXkb2inM85sj/0V0Xy/fr/3uH/AFrQT7c=
     "]], 
   GraphicsComplex3DBox[CompressedData["
1:eJxtmXdUVNcWxlHHimJ5NpREjViwEBRjIZpjSBQb9iBiiYKKHVBEIYpGMCpg
TcCoBKPRBMWCvaE7kqgYC6B0AyJlmGFmwBg1Fgwvz7P3PVnbd/9wrfnmcu85
e3+/b581dvD2Gz+7ppWV1Xv//FPLiq5HwopdvrVhRc1XlaLL73/d8CzYq33/
rNo/wNpcKbqOm79oy/3jmn7N9/k37e5VigWTBu6ekXxB00O+cTo4NLFS2MZt
ilmYdkXTW9l9GRUZVikillqHtnG5pulrrEJ6V42qFE89XQ/nxv6m6Z0uBO85
2LBSvHO+5PHIv+6o+7+YXvxTcoVw2Nw7v8H+dE2vnvjpf2z8KsRY4/v9Kq/d
03S7nuNdnzWtEM+sIwLjizM13fPmjuBVCRaxNqa0YtOLbE2PXl199JcPLSKt
TZ0OL+rmafpv/T0umpLN4kbty3lDbH7X9HpdFo1p+7FZBI+1D7xrXaDph0Z5
GkLOmESNN58KNX3IwdvJH3Q0iW75hz+yfar0AxXxt4PXl4tmr5uGG0oeanr8
kx27lxcbxXSvZbqOqUWanu7zZIJ3P6MYcOPS8dUnizW9/9jUfX5hBvFOy4Hj
z24r0fTky87x2dfLRI51UUz4vFJ1v/sBfYauTDRdWui030Wv6Y3xswt+Tzr9
PT1PqzO+bwC+X3s+ru8urpd02g/tj3TaP9WDdKoX1Y/019X/ux6IBKw36dQP
6g/pKdg/6ifpt7HfMdh/0r9Ef5BfSH+KfiJ/kU7+Iz+S3hn9Sv4lnfxNftee
jzwQH6SHIT/EE+nEG/FHOvFJvJJOPBPfpNsg/5QHVv/3UvkxWd4P/H58PvDn
43qAr6eTXD/w9W+U+wW+X6wP8Po4yHqCPasn5gXw+mO/gPcL+wu8v+gH4H7A
vIBo5h/0G3C/oT+B+1NmdCHEMz+j/4H7H3kBzstMyRf8yPjCvIB0xiPyC5zf
PMk7/Mx4byLzAQawfMDP0ITlCeYF8PzB94Edy6t7cn3Qj+Ub5gXwPMT9A89P
N1kv6MLyFvMZ5CelYz+A5/lN2T9IZvmP/QY+L9Af8CWbL+9IP0Elm0foP+Dz
C/0KfN5hXsBb81HyAHyetpb8wCo2f5E34PMa+QQ+35FnaMzOA8g/8PODvB6B
FbvOvbvONO5cheC6U+2uoetPVojO338Q8nkX9Zxd/tGnHA5UCK/IkB9P2Kv3
HnIpqT9oU4UoWll1aWrieU2//u2kJykLKsT8en1zarRR++o+2ro4e3CF2HnG
IXO1x1VNz95ywmV5wwphGlyzpUfUDTW/4uaPO3vHIjL6jlrc58JtTW/hvW9e
wnqLmJ1niJlTmabp4T+0Pjyvn0UEPfH4dX7VXbXOC4/bWxeYxfCcgdVra6m+
Vzy0/JTwhVms2tp/RiOd8onzziOV85qYxZrGA6znv87R9HfTHBb6xppEtavX
zFcVym+b7olRKe1MImmmTe/OOcqfU8W8xSd3lYvzb+qt/BwRHDtxfKNyMS6j
/exAN+X/k6FerdKXG4XdGEOtwz0VRzvqV0yanmcQ5SfcdBtsFHf3Pi/s1f0D
g9g49sNPk41K17nHd1+woUzULVro0xIUvyP+823niRl6Edtifc7HmxXvn09s
PPpdW72o0+tZbd0klQ86/DwTvyed/p6eR3odfB+9n/QNuL4MXC/ptB/aH+m0
f6oH6VQvqh/pp7G+07DepFM/qD+k/439o36Svgr73Qf7T/pK9Af5hfRh6Cfy
F+nkP/Ij6d7oV/Iv6eRv8jvpxAPxQfp25Id4Ip14I/5IJz6JV9KJZ+KbdBvk
n/LAil08Pzzk/cDvx+cDfz6uB/h6guT6ga//W7lf4PvF+gCvT6GsJ/Rj9cS8
AF5/7BfwfmF/gfcX/QDcD5gX4Mz8g34D7jf0J3B/XpJ+Bi/mZ/Q/cP8jL8B5
MUu+IJrxhXkB9xiPyC9wfuMk7zCM8V5b5gPMYPmAn6E2yxPMC+D5g++DOiyv
MuX6YD3LN8wL4HmI+ween1GyXjCa5S3mM5xj+Yz9AJ7n7WT/4AXLf+w38HmB
/oCVbL4kSD+BK5tH6D/g8wv9CnzeYV4An4/IA/B5ivxAFJu/yBvweY18Ap/v
yDO4svMA8g/8/IB58dY5JGBQg+wf/BVvdD3XbQtruNAi7Gct7TbH/3vte/Hw
/F9u0y0i8mrEg8xFiapfjdJCvdwswnNfUqFn3DlNb/5dqBjZxSIuLimw3eHz
s6Z/tCZ6gP3fZhH/wq1H6ZJfNd2xncn18U2zeNg1efXdL1I0feTaKbWubjWL
yFMnjXarbmn6wWH6yqOjzGJv5z1jk11UX+o/Nn96tdokYqtXjdP3Un0cMOzr
6naHTGL3/sqN0zpmqL4//yQrd6RJrIiITI+yydL09BNTnJqUlgsn3cKneY+V
f5b4vrYrXlYu+qx5VpaYmqvpzdY0G77sb6OoXvK8Mnj/fU1v1DvkiSnUKJa8
qXe+pqcOX6Bf/JdB/BHj0GqP8wNNv2LTcGbXuQbRae/lML8gxctX737afEh6
mVhm3UZncVd8ZU651fhJ7zKRk30uS9de8Xhn+Jen5mzSi8dHvgtcZv7X7ye+
VfvTCkvFjHY92lSfULx/NSX4tG/PUvGqwvq+z1KVDy/w8wb8nnT6e3oe6X/g
++j9pGfj+rJwvaTTfmh/pNP+qR7a87FeVD/SF2N9bbDepFM/qD+kO2P/qJ+k
98R+38X+k74c/UF+IX0X+on8RTr5j/xIehz6lfxLOvmb/E468UB8kL4X+SGe
SCfeiD/SiU/iVXsv8kx8k94I+ac8sGIXz4/x8n7g9+PzgT8f1wN8Pdfk+oGv
/ye5X+D7xfoAr0+MrCeMYPXEvABef+wX8H5hf4H3F/0A3A+YF5DO/IN+A+43
9CdwfwZJP0ND5mf0P3D/Iy/AeVku+YJwxhfmBWQyHpFf4Px6S94hlfH+UuYD
rGf5gJ/hJcsTzAvg+YPvgz9YXmXL9UEWyzfMC+B5iPsHnp/psl5gZnmL+QwB
LJ+xH8DzfKnsHziy/Md+A58X6A9YzuaLi/QTRLN5hP4DPr/Qr8DnHeYF8PmI
PACfp8gPxLL5i7wBn9fIJ/D5jjxDIDsPIP/Azw+YF2+dQxymbkl+2lVxSNcV
3csN2+zNYshY79O5S/Zo3xePK3CZ08osgqs/6PV40TH1/MKLfy6vYRap11fW
+izqrPLt3gMRt4tMovWFRmc9vUDl1Yl2W/0vmsTZgXPCRmz5RfnqaMeRiyJN
IqfJWuPoBdc1ffqcUafvjjcJ195tZ9cefFPV8/1uQSeamsT50kPNBzZM1fTN
g6/kt08pF1caHCiY6at+v7qe6VzQJ6hcWPz3Ne//ifq9q03jXbp6duViSXiB
a0NbdS71u1U/4Mx5oyh8HvdgpEH559rfabenjzGK+Ze2L56TqM69MT1Kh7yX
bxCu4UVHbvurczLYR4bY+xhEtzf1Vufq5m1cVkQ+LBOD1zWd9VnOv84ncZcO
rfYsE9P0DnXnhCpegpx3pXVP0Ysas8y1xm9SfGVPOmdJctKLrp/3nefmoXjc
OdRrkPf2UvF78J11GbaK38lJMzq6W0qEvUP6lKRspR/xLrY7/nGJeHS4Q+Iv
W1Q+VOLno/g96fT39DzS7+P76P2kd8H15eB6Saf90P5Ip/1TPUinelH9tOdj
fX/GepNO/aD+kD4P+0f9JD0f++2P/Sc9AP1BfiHdjH4if5FO/iM/kn4K/Ur+
1daJ/ia/k048EB+kJyI/xBPpxBvxRzrxSbySTjwT36TbIv+UB1bs4vnxnbwf
+P34fODPx/UAX4+jXD/w9Z+R+wW+X6wP8Pq4y3rCNFZPzAvg9cd+Ae8X9hd4
f9EPwP2AeQF+zD/oN+B+Q38C96ej9DNcZn5G/wP3P/ICnJdaki8IZHxhXkA2
4xH5Bc5vZ8k7TGK8Y17AEZYP+Bl4nmBeAM8ffB/cZ3mVK9cHnVm+YV4Az0Pc
P/D8bCHrBR+yvMV8BgeWz9gP4Hl+XfYPZrH8x34DnxfoDwhg8yVF+gnK2DxC
/wGfX+hX4PMO8wL4fEQegM9T5AcS2PxF3oDPa+QT+HxHnsGdnQeQf+DnB8yL
t84hRSHNj7o9VPzQFaHz2dwyv1y45uS3KNPFad9vSK4ZGp5WLvKXevzQ3+qo
pk88+dPc6IvlYohlYOdxIWc0/diBW5lj4srFhc3TXcIslzR9dslBfdKKcnFt
dXjesYRklf+Dpk4wjCgXd55/POGml/p/q4ARg3wLm5eLl8fWFlpqqv/nutti
cdXpLKNwCm214c996veo5luig1ZuNYqyFrcW5Meqc6OHT0bScFejGDzosz3N
fNQ583inR737mg1iUWivU5H/Opc20p89PnWzQWy1pN9Iylf+aRuzPzSvq0Hs
een4tO02de5tm3vWNfVimVgXfWtBh0HqnOzfKtZqmluZKH5Tb+XnyeX1GsTf
1IvNS18kWq9S/s939HuSNUwvAiKy6lgaq98JZw97FNUMSoVt8Kq6i3cqvnIn
7L+5zrFUrNCffLUxSvHo84nztWk7SsT1IdUxzm6K38ImV/feeFEsjL2Dvguu
UnrGPPfwl58Vi9L5/dZ1PKxyoAQ/Z+L3pNPf0/NIv4bvo/eTvhzXl4frJZ32
Q/vT+o77p3qQTvWi+mn7wvoGYL1Jp35Qf0iPw/5RP7XnY79tsP+kL0R/kF9I
F+gn8hfp5D/yI+nd0a/kX9LJ3+R30okH4oP0n5Ef4ol04o34I534JF5JJ56J
b9JbI/+UB1bs4vkRI+8Hfj8+H/jzcT3A15Mq1w98/VflfoHvF+sDvD66xDf1
BH9WT8wL4PXHfgHvF/YXeH/RD8D9gHkBjZh/0G/A/Yb+BO7PMuln8GN+Rv8D
9z/yApyXdyRf4MP4wryAXMYj8gucX5PkHQoY75gXkMHyAT8DzxPMC+D5g++D
ayyv7sv1QRDLN8wL4HmI+ween16yXhDB8hbzGYpYPmM/gOe5newf7GT5j/0G
Pi/QH7CQzZdJ0k/gwuYR+g/4/EK/Ap93mBfA5yPyAHyeIj9wkc1f5A34vEY+
gc935BlOsvMA8g/8/IB58dY5ZNfO/12KK7om6G59vTvaKMSMyUFPYmK173s4
d7myb+M/c9wQ1GL19sOa3v+rr/NPLDOKpGavh7nPPa3pVQf/bH93slFM9Tl2
6ciaJE0PbtlnUP2+RpGZvK9XixT1/1B9bn8zxaeBUfxaWOOS2wj1/1bhjo62
FVkGcbxn+ZSsq+r3Jd+q42vP7zaI+Jbhrw4NUL9H7cyf1zjH0yDauOr/OL5f
nRtLHgXunm5jENvr1+tmWavOmW4Dh86clVQm5q4I72TtqM6lCdWzH9f0KROD
i3Snet5T/vHrueJ9j5plIrPfzS/SA9S59/t1EWLlLr1I+fGMw7L66pz8XoMj
X0V314vdb+qt/Bx3IXv3r6dLRf7Mh6+vdFC/+5kut//IcUCpCHcMqxO4V/Ey
cdrQ4S9Olwinbu/V7d9a8XV/zNaDo3uUiC33ve12rlM8Og5uOGZybLFIbOoU
vz1Q8Tt3tkP7oXWKxZGBbR/07aB4f+V/1vTJ/CKR19XdKyxF6bn4uQq/J53+
np5HOr2P3k/6Jlzf77he0mk/tD/Vd7l/qgfpVC+qH+nfYn07Yr1Jp35Qf0jP
wP5RP0n/CPt9GPtPui/6g/xC+jb0E/mLdPIf+ZH0H9Cv5F/Syd/kd9KJB+KD
9FTkh3ginXgj/kgnPolX0oln4pv0Vsg/5YEVu3h+bJX3A78fnw/8+bge4Ovx
l+sHvv4MuV/g+8X6AK/PRVlPCGP1xLwAXn/sF/B+YX+B9xf9ANwPmBeQwPyD
fgPuN/QncH/GST9DB+Zn9D9w/yMvwHnpI/mC8YwvzAu4z3hEfoHze0zyDnMY
75gX8IrlA34GnieYF8DzB98HPK/y5fogkuUb5gXwPMT9A8/PPbJekMvyFvMZ
drF8xn4Az3N/2T9IZfmP/QY+L9Af4MvmS6n0E0SxeYT+Az6/0K/A5x3mBfD5
iDwAn6fID/zG5i/yBnxeI5/A5zvyDK3ZeQD5B35+wLx46xzyXxB/ixo=
    "], 
    Polygon3DBox[CompressedData["
1:eJwt2WUQcEUdRvF3L93d+dIlSIoCIo20dEh3CyiNgHQqIN2odDdKh3R3KCgd
Il2KuL/5Px+e2bNn9vOZO3NHbrHrmrsMI0aMuLuNGDFqP/sxwn3jvp+HR+nb
JA57t2kcHq1vszg8et/mcXiMvi3i8Jh9W8bhsfq2isNj920dh8fp2yYOj9u3
bRwer2+7ODx+3/ZxeIK+HeLwhH07xuGJ+naKwxP37RyHJ+nbJQ5P2rdrHJ6s
7xdxePK+3eLwFH27x+Ep+/aIw1P1/TIOT933qzg8Td+ecXjavr3i8HR9e8fh
6fv2icMz9O0bh2fs2y8Oj+zbPw7P1HdAHJ6579dxeJa+A+PwrH0HxeHZ+g6O
w7P3/SYOz9F3SByes+/QODxX32FxeO6+w+PwPH1HxOHv9R0Zh+ftOyoOz9d3
dBz+ft8xcXj+vmPj8AJ9x8XhBfuOj8ML9f02Di/c97s4vEjfCXH4B30nxuFF
+06Kwz/s+30c/lHfyXF4sb5T4vDifafG4SX6TovDP+47PQ4v2XdGHP5J35lx
eKm+s+Lw0n1nx+Fl+s6Jw8v2nRuHl+s7Lw4v33d+HF6h74I4vGLfH+LwT/v+
GIdX6vtTHF6578I4vErfRXF41b6L4/BqfZfE4dX7Lo3Da/RdFod/1nd5HF6z
74o4vFbflXF47b6r4vA6fVfH4XX7ronD6/VdG4fX77suDm/Qd30c3rDvhji8
Ud+NcZqswzf33RTW4VvisA7/OQ5v1veXOKzDt8ZhHb4tDuvw7XFYh++Iwzp8
ZxzW4bvisA7fHYd1+J44rMP3xmEdvi8O6/Bf47AO3x+HdfiBOKzDD8ZhHX4o
Duvww3FYhx+Jwzr8aBzW4cfisA4/Hod1+Ik4rMNPxmEdfioO6/DTcViHn4nD
OvxsHNbh5+KwDj8fh3X4hTiswy/GYR1+KQ4f1PdyHNbhV+KwDv8tDuvw3+Ow
Dr8ah3X4tTisw/+Iwzr8zzisw6/HYR1+Iw7r8JtxWIffisM6/HYc1uF34rAO
vxuHdfi9OKzD78dhHf4gDuvwv+KwDn8Yh3X433FYhz+Kwzr8cRzW4U/isA5/
God1+LM4rMOfx2Ed/iIO6/CXcViHv4rDOvx1HNbhb+LweX3/icM6/N84rMPf
xmEd/l8c1uHv4rAO+1D8LqzDrZXDOjy0cliHR2nlsA6P2sphHR6tlcM6PHor
h3V4jFYO6/CYrRzW4bFaOazDY7dyWIfHaeWwDo/bymEdHq+Vwzo8fiuHdXiC
Vg7r8IStHNbmiVo5TdbhSTpP3Ip1eNJWDuvwZK0c1uHJWzmsw1O0cliHp2zl
sA5P1cphHZ66lcN39k3TymEdnraVwzo8XSuHdXj6Vg7r8AytHNbhGVs5rMMj
WzmswzO1cliHZ27lsA7P0sphHZ61lcM6PFsrh3V49lYO6/AcrRzW4TlbOazD
c7VyWIfnbuWwDs/TymEd/l4rh3V43lYO6/B8rRzW4e+3cliH52/lsA4v0Mph
HV6wlcM6vFArh3V44VYO6/AirRzW4R+0cliHF23lsA7/sJXDOvyjVg6/1rdY
K4d1ePFWDuvwEq0c1uEft3JYh5ds5bAO/6SVwzq8VCuHdXjpVg7r8DKtHNbh
ZVs5rMPLtXJYh5dv5bAOr9DKYR1esZXDOvzTVg7r8EqtHNbhlVs5rMOrtHJY
h1dt5bAOr9bKYR1evZXDOrxGK4d1+GetHNbhNVs5rMNrtXJYh9du5bAOr9PK
YR1et5XDOrxeK4d1eP1WDuvwBq0c1uENWzmswxu1cliHfx6HdXjjOKzDm8Rh
Hd40DuvwZnFYhzePwzq8RRzW4S3jsA5vFYd1eOs4rMPbxGEd3jYO6/B2cViH
t4/DOrxDHNbhHeOwNu8Up8k6vEvfzmEd3jUO6/Av4rAO7xaHdXj3OKzDe8Rh
Hf5lHNbhX8VhHd4zDuvwXnFYh/eOwzq8TxzW4X3jsA7vF4d1eP84rMMHxGEd
/nUc1uED47AOHxSHdfjgOKzDv4nDOnxIHNbhQ+OwDh8Wh3X48Disw0fEYR0+
Mg7r8FFxWIePjsM6fEwc1uFj47AOHxeHdfj4OKzDv43DOvy7OKzDJ8RhHT4x
DuvwSXFYh38fh3X45Disw6fEYR0+NQ7r8GlxWIdPj8M6fEYc1uEz47AOnxWH
dfjsOKzD58RhHT43DuvweXFYh8+Pwzp8QRzW4T/EYR3+YxzW4T/FYR2+MA7r
8EVxWIcvjsM6fEkc1uFL47AOXxaHdfjyOKzDV8RhHb4yDuvwVXFYh6+Owzp8
TRzW4WvjsA5fF4d1+Po4rMM3xGEdvjEO6/BNcViHb47DOnxLHNbhP8dhHf5L
HNbhW+OwDt8Wh3X49jisw3fEYR2+Mw7r8F1xWIfvjsM6fE8c1uF747AO3xeH
dfivcVib74/TZB1+sO+BsA4/FId1+OE4rMOPxGEdfjQO6/BjcViHH4/DOvxE
HNbhJ+OwDj8Vh3X46Tisw8/EYR1+Ng7r8HNxWIefj8M6/EIc1uEX47AOvxSH
dfjlOKzDr8RhHf5bHNbhv8dhHX41Duvwa3FYh/8Rh3X4n3FYh1+Pwzr8RhzW
4TfjsA6/FYd1+O04rMPvxGEdfjcO6/B7cViH34/DOvxBHNbhf8VhHf4wDuvw
v+OwDn8Uh3X44zisw5/EYR3+NA7r8GdxWIc/j8M6/EUc1uEv47AOfxWHdfjr
OKzD38RhHf5PHNbh/8ZhHf42Duvw/+KwDn8Xh3XYj57vwjrchnJYh4ehHNbh
UYZyWIdHHcphHR5tKId1ePShHNbhMYZyWIfHHMphHR5rKId1eOyhHNbhcYZy
WIfHHcphHR5vKId1ePyhHNbhCYZyWIcnHMphHZ5oKId1eOKhHNbhSYZyWIcn
HcphHZ5sKId1ePKhHNbhKYZyWIenHMphHZ5qKId1eOqhHNbhaYZyWIenHcph
HZ5uKId1ePqhHNbhGYZyWIdnHMphHR45lMPaPNNQ7v8wF3rE
     "]]]},
  Axes->None,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  BoxRatios->{1, 1, 0.4},
  Boxed->False,
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-1., 1.}, {0., 1.}, {-0.00004072012108027303, 
   3.508057513466844}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{1.2639180802938632`, -3.073030078761897, 0.6395289057821478},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellLabel->"Out[5]=",
 CellID->734008632,ExpressionUUID->"e9275a72-8aea-4ae4-849a-ad3d32e20177"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a2139243-d188-4378-9810-a6e113383404"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1954176302,ExpressionUUID->"3daa16e9-b32e-47cd-9594-ea01f37a6671"],

Cell["Numerically integrate over a boundary mesh.", "ExampleText",
 CellID->647467425,ExpressionUUID->"c173a5d3-ddb3-4ea7-9be2-b054b11eff68"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], ",", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", 
       RowBox[{"Pi", "/", "8"}], ",", 
       RowBox[{"Pi", "/", "2"}], ",", 
       RowBox[{"Pi", "/", "16"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", 
       RowBox[{"2", "Pi"}], ",", 
       RowBox[{"Pi", "/", "16"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"40", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"NIntegrate", "[", 
  RowBox[{"1", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}], "\[Element]", "mesh"}]}], 
  "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->1123084471,ExpressionUUID->"428d7ccb-dd43-4e7f-b1d9-e7002cb13871"],

Cell[BoxData["5.727756567451193`"], "Output",
 CellLabel->"Out[3]=",
 CellID->226381841,ExpressionUUID->"94c80242-b264-421c-8a13-f254ca84e283"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "24ecb8f7-1739-456a-be9b-dac5bed3184c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"b6743148-82a3-4378-9656-4a0cf2a5d5a9"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "98ccbd14-46ee-44c7-aa3b-037f71a21b3f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"ded2aee0-d3cd-433e-a1bc-161ea4b03cbe"],

Cell["Ordering of raster coordinates are important.", "ExampleText",
 CellID->221149461,ExpressionUUID->"de5db84c-ddfc-4da1-8b9c-f8f0293161fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->1950934393,ExpressionUUID->"fb624a2d-1eff-4e1d-bec8-6e5c3024e158"],

Cell[TextData[{
 "Visualize consecutive numbers of the raster points ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["r", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "eb150ee1-7b77-4438-8b83-8788568f84d8"],
 " in blue and in black the raster position indices."
}], "ExampleText",
 CellID->1414465523,ExpressionUUID->"2c792e8e-e0bf-4d7b-bd09-2fb0984f3d66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Dashed", ",", 
      RowBox[{"Line", "[", "raster", "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", 
      RowBox[{"MapIndexed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"First", "@", "#2"}], ",", "#1", ",", 
           RowBox[{"1.5", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], "&"}], ",", 
        RowBox[{"Join", "@@", "raster"}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"MapIndexed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{"#2", ",", "#1", ",", 
           RowBox[{
            RowBox[{"-", "1.5"}], 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], "&"}], ",", "raster", 
        ",", 
        RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
   "}"}], "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->1777271000,ExpressionUUID->"eb26d741-984a-47b2-ade4-ed65e5ad9ac3"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], PointSize[Medium], 
    PointBox[{{0, 0}, {1, 0}, {2, 0}, {3, 0}, {0, 1}, {1, 1}, {2, 1}, {3, 
     1}, {0, 2}, {1, 2}, {2, 2}, {3, 2}}]}, 
   {RGBColor[0, 0, 1], Dashing[{Small, Small}], 
    LineBox[{{{0, 0}, {1, 0}, {2, 0}, {3, 0}}, {{0, 1}, {1, 1}, {2, 1}, {3, 
     1}}, {{0, 2}, {1, 2}, {2, 2}, {3, 2}}}]}, 
   {RGBColor[0, 0, 1], InsetBox["1", {0, 0}, {1.5, 1.5}], 
    InsetBox["2", {1, 0}, {1.5, 1.5}], InsetBox["3", {2, 0}, {1.5, 1.5}], 
    InsetBox["4", {3, 0}, {1.5, 1.5}], InsetBox["5", {0, 1}, {1.5, 1.5}], 
    InsetBox["6", {1, 1}, {1.5, 1.5}], InsetBox["7", {2, 1}, {1.5, 1.5}], 
    InsetBox["8", {3, 1}, {1.5, 1.5}], InsetBox["9", {0, 2}, {1.5, 1.5}], 
    InsetBox["10", {1, 2}, {1.5, 1.5}], InsetBox["11", {2, 2}, {1.5, 1.5}], 
    InsetBox["12", {3, 2}, {1.5, 1.5}]}, 
   {GrayLevel[0], {InsetBox[
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], {0, 0}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}], {1, 0}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}], {2, 0}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], {3, 0}, {-1.5, -1.5}]}, {InsetBox[
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}], {0, 1}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}], {1, 1}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], {2, 1}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}], {3, 1}, {-1.5, -1.5}]}, {InsetBox[
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], {0, 2}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"3", ",", "2"}], "}"}], {1, 2}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"3", ",", "3"}], "}"}], {2, 2}, {-1.5, -1.5}], InsetBox[
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}], {3, 2}, {-1.5, -1.5}]}}}]], "Output",
 CellLabel->"Out[2]=",
 CellID->163100754,ExpressionUUID->"93f1b58c-0d9e-4140-9303-cc30980b9d08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c69c5776-3e8b-42e1-b782-9d5ca8485f8b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->580939214,ExpressionUUID->"621f057e-5ce5-4955-969e-c2f03e8dd302"],

Cell["\<\
Wrong specification of the raster \"orientation\" gives inverted ordering of \
mesh element incidents and consecutively negative element quality.\
\>", "ExampleText",
 CellID->45373243,ExpressionUUID->"93b57372-b5cf-4c2d-8bbd-a449e5e3e11f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#2", ",", "14"}], "]"}], ",", "#1", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], ",", "raster", 
          ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->13674247,ExpressionUUID->"480f1f06-2ccf-4e6e-992d-b936146208eb"],

Cell[BoxData[
 TemplateBox[{
  "ToElementMesh","femimq",
   "\"The element mesh has insufficient quality of \
\\!\\(\\*RowBox[{\\\"-\\\", \\\"0.994764397905759`\\\"}]\\). A quality \
estimate below 0. may be caused by a wrong ordering of element incidents or \
self-intersecting elements.\"",2,2,55,23735420110761169629,"Local",
   "NDSolve`FEM`ToElementMesh"},
  "MessageTemplate2"]], "Message", "MSG",
 CellLabel->"During evaluation of In[1]:=",
 CellID->62685563,ExpressionUUID->"d260978c-6086-43b8-a9b7-400826b6f33a"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJx10zFMwkAUBuDGyeCKq8ZNXetaubjgKMydTNRRXNUVVxzVVWdmZ5xIdFbH
6kAUTaoFoUCJfXf8v7lLfAm5tHDfu/fesbJ7WN2b8zxvK//IaiIuYb26lHjj
uuFLvJb82Xqh3z87a5ur54RxvujXgsLjde2TfrMcHRebHfrvldulejeivyOP
lad/85h9Cf0bneCvjvWw0eqvftCfz7MHhQ59O1+b7+E/3Ev06J/nWtj4pl/V
54vpIx8c1Acf/YS/r+OH/klRdvToIx981Acf/YSPffYUhvSRD79Dfb4154Q+
5mf3PaZvvk/53vRjSH9B93tA/07KafXpn87qtfuT0DfPY/qbUm4wor8t7S2n
9JEfvh5HOKB/YPUb853QX9MbJvTPunJBxvRfJF00oo/z2P1PnflO6S/qCzGl
b/qR0T/S88zoL9flABl9+7wM5cxFOfdAwcezc8+V879SgH8Ba4uvnw==
     "], 
     PolygonBox[{{1, 7, 8, 2}, {2, 8, 9, 3}, {3, 9, 10, 4}, {4, 10, 11, 5}, {
      5, 11, 12, 6}, {7, 13, 14, 8}, {8, 14, 15, 9}, {9, 15, 16, 10}, {10, 16,
       17, 11}, {11, 17, 18, 12}, {13, 19, 20, 14}, {14, 20, 21, 15}, {15, 21,
       22, 16}, {16, 22, 23, 17}, {17, 23, 24, 18}, {19, 25, 26, 20}, {20, 26,
       27, 21}, {21, 27, 28, 22}, {22, 28, 29, 23}, {23, 29, 30, 24}, {25, 31,
       32, 26}, {26, 32, 33, 27}, {27, 33, 34, 28}, {28, 34, 35, 29}, {29, 35,
       36, 30}, {31, 37, 38, 32}, {32, 38, 39, 33}, {33, 39, 40, 34}, {34, 40,
       41, 35}, {35, 41, 42, 36}, {37, 43, 44, 38}, {38, 44, 45, 39}, {39, 45,
       46, 40}, {40, 46, 47, 41}, {41, 47, 48, 42}, {43, 49, 50, 44}, {44, 50,
       51, 45}, {45, 51, 52, 46}, {46, 52, 53, 47}, {47, 53, 54, 48}, {49, 55,
       56, 50}, {50, 56, 57, 51}, {51, 57, 58, 52}, {52, 58, 59, 53}, {53, 59,
       60, 54}, {55, 61, 62, 56}, {56, 62, 63, 57}, {57, 63, 64, 58}, {58, 64,
       65, 59}, {59, 65, 66, 60}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Medium], 
     PointBox[{{1, 1}, {2, 1}, {0, 0}, {2, 0}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{1, 1}, {2, 1}}, {{0, 0}, {2, 0}}}]}, 
    {GrayLevel[0.5], {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {1, 1}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 1}, {-1, -1}]}, {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {0, 0}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 0}, {-1, -1}]}}}}]], "Output",
 CellLabel->"Out[3]=",
 CellID->150460872,ExpressionUUID->"2985be35-b7d6-4765-9648-ad8ea2da0dff"]
}, Open  ]],

Cell["Fix this by specifying the correct ordering.", "ExampleText",
 CellID->1397881661,ExpressionUUID->"afcbe88d-5475-43d4-9508-68ae041e1b13"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#2", ",", "14"}], "]"}], ",", "#1", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], ",", "raster", 
          ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellLabel->"In[4]:=",
 CellID->486589843,ExpressionUUID->"98756a4a-fa97-44ac-85ca-bfc5707fbfe1"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxl0zFMwkAUBuCLk8EVV42buuJa27jgKMydTNRRXNUVVxzVVWdmZ5xMdNaO
1YEomqCAUKBE3pX/N/e8pHnptff13XvXld3D8t6cMWZreknU4+JSxr3vxsi/
msWNgoxXxmz+jTFT2oxw4O/cLlVbpWfOv5dkIqZfL8bH+XqTfsXLPV1XPtV3
vpQf0YcHf3662ss16a+HtUZv9YP+jf1Am76dLnTo4z34yA8+PPhlu7+/defT
p2Htm/7jg4wufbduxmC/8N38InrwT/KSUZfOvh0///oAH/WDj/3CR37w4bl5
DlR9OvRPZ/nAv5N0Gz36C7YfffpZvQaqvwn9A2c/xthyh3367vrI35b2FBP6
m1JOb0g/mx+p+if08T78F+HiIf2zlhywEf01m9BY9XdM3703ZrkqQEr/yPY7
pZ/VK6W/aA/cRPV3ovsaqN84UP9dAB/36lwH6hwG8H8BqaavwA==
     "], 
     PolygonBox[{{1, 7, 8, 2}, {2, 8, 9, 3}, {3, 9, 10, 4}, {4, 10, 11, 5}, {
      5, 11, 12, 6}, {7, 13, 14, 8}, {8, 14, 15, 9}, {9, 15, 16, 10}, {10, 16,
       17, 11}, {11, 17, 18, 12}, {13, 19, 20, 14}, {14, 20, 21, 15}, {15, 21,
       22, 16}, {16, 22, 23, 17}, {17, 23, 24, 18}, {19, 25, 26, 20}, {20, 26,
       27, 21}, {21, 27, 28, 22}, {22, 28, 29, 23}, {23, 29, 30, 24}, {25, 31,
       32, 26}, {26, 32, 33, 27}, {27, 33, 34, 28}, {28, 34, 35, 29}, {29, 35,
       36, 30}, {31, 37, 38, 32}, {32, 38, 39, 33}, {33, 39, 40, 34}, {34, 40,
       41, 35}, {35, 41, 42, 36}, {37, 43, 44, 38}, {38, 44, 45, 39}, {39, 45,
       46, 40}, {40, 46, 47, 41}, {41, 47, 48, 42}, {43, 49, 50, 44}, {44, 50,
       51, 45}, {45, 51, 52, 46}, {46, 52, 53, 47}, {47, 53, 54, 48}, {49, 55,
       56, 50}, {50, 56, 57, 51}, {51, 57, 58, 52}, {52, 58, 59, 53}, {53, 59,
       60, 54}, {55, 61, 62, 56}, {56, 62, 63, 57}, {57, 63, 64, 58}, {58, 64,
       65, 59}, {59, 65, 66, 60}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Medium], 
     PointBox[{{0, 0}, {2, 0}, {1, 1}, {2, 1}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{0, 0}, {2, 0}}, {{1, 1}, {2, 1}}}]}, 
    {GrayLevel[0.5], {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {0, 0}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 0}, {-1, -1}]}, {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {1, 1}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 1}, {-1, -1}]}}}}]], "Output",
 CellLabel->"Out[6]=",
 CellID->29742862,ExpressionUUID->"6ca082f5-2732-4b6f-8069-f64f5fe0051d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0d21d6f4-e967-49ef-8a28-22ab65ec868e"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->737522101,ExpressionUUID->"0c9d1e2d-b3a0-4d39-89e3-15ed11d35302"],

Cell["Raster points when connected should not self-intersect.", "ExampleText",
 CellID->202191373,ExpressionUUID->"6cb7c325-9811-4516-b5a5-3d6747b0b09c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}]}], "}"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#2", ",", "14"}], "]"}], ",", "#1", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], ",", "raster", 
          ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->372323046,ExpressionUUID->"1ee574de-5926-49eb-897a-8affa4ecb317"],

Cell[BoxData[
 TemplateBox[{
  "ToElementMesh","femimq",
   "\"The element mesh has insufficient quality of \
\\!\\(\\*RowBox[{\\\"-\\\", \\\"0.5982905982905989`\\\"}]\\). A quality \
estimate below 0. may be caused by a wrong ordering of element incidents or \
self-intersecting elements.\"",2,2,56,23735420110761169629,"Local",
   "NDSolve`FEM`ToElementMesh"},
  "MessageTemplate2"]], "Message", "MSG",
 CellLabel->"During evaluation of In[1]:=",
 CellID->227778091,ExpressionUUID->"7f3abea9-91cb-40ad-8861-9a4bf2fcabc0"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxl0y1MAzEUB/AGedhhR3ADOyx0QYBmGkUCSIbdsGBBAnZoNBoUydBH5UIQ
YwvZ5bjbDgihX+/fvNLk8rJe+7u+97qV/eP2wYIQYks/Jsbj6toMJV18kjc2
jnxUcr1pRu7jq5+vsM4zLRemcMjfHnZrdztDzK/uXTwUjQn88/Huff0s+GXD
LJjDP7TjV3JfwdeY3vAGX2Na/ID/0u9sJGnw23ZB8J8HZvzAp3XkbyapFt7h
3xquP4W/ZvP5xD6dq054Bt9ON7/hR3UTdF7yJ6Yc4wx+z1SvG3x7nGQW9amC
z6MQ7n0Gn/pJvss/+K7eZXTOeVSfHD7Vl/xTf17yl0169QK+61cR9beEf8R+
C7FkC1rCf2T7lTwx7egEn75H/sDnx+tfwaf7QP4iq6/Cecnvsfyovzl8fp+E
uLTAF3x+/5Ss+fzIT309eX+zuK8t8ul7/P9bwaf6kt9k/R/9uzd/flrB0A==

     "], PolygonBox[{{1, 7, 8, 2}, {2, 8, 9, 3}, {3, 9, 10, 4}, {4, 10, 11, 
      5}, {5, 11, 12, 6}, {7, 13, 14, 8}, {8, 14, 15, 9}, {9, 15, 16, 10}, {
      10, 16, 17, 11}, {11, 17, 18, 12}, {13, 19, 20, 14}, {14, 20, 21, 15}, {
      15, 21, 22, 16}, {16, 22, 23, 17}, {17, 23, 24, 18}, {19, 25, 26, 20}, {
      20, 26, 27, 21}, {21, 27, 28, 22}, {22, 28, 29, 23}, {23, 29, 30, 24}, {
      25, 31, 32, 26}, {26, 32, 33, 27}, {27, 33, 34, 28}, {28, 34, 35, 29}, {
      29, 35, 36, 30}, {31, 37, 38, 32}, {32, 38, 39, 33}, {33, 39, 40, 34}, {
      34, 40, 41, 35}, {35, 41, 42, 36}, {37, 43, 44, 38}, {38, 44, 45, 39}, {
      39, 45, 46, 40}, {40, 46, 47, 41}, {41, 47, 48, 42}, {43, 49, 50, 44}, {
      44, 50, 51, 45}, {45, 51, 52, 46}, {46, 52, 53, 47}, {47, 53, 54, 48}, {
      49, 55, 56, 50}, {50, 56, 57, 51}, {51, 57, 58, 52}, {52, 58, 59, 53}, {
      53, 59, 60, 54}, {55, 61, 62, 56}, {56, 62, 63, 57}, {57, 63, 64, 58}, {
      58, 64, 65, 59}, {59, 65, 66, 60}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Medium], 
     PointBox[{{0, 0}, {2, 0}, {2, 1}, {1, 1}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{0, 0}, {2, 0}}, {{2, 1}, {1, 1}}}]}, 
    {GrayLevel[0.5], {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {0, 0}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 0}, {-1, -1}]}, {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 1}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {1, 1}, {-1, -1}]}}}}]], "Output",
 CellLabel->"Out[3]=",
 CellID->10575923,ExpressionUUID->"9e2ea6dd-e626-43b8-a50e-b5b1487b6e57"]
}, Open  ]],

Cell["Fix this by giving a non-self intersecting raster.", "ExampleText",
 CellID->1868227760,ExpressionUUID->"a31247df-e6d6-4dfd-aa44-db03cf930e68"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}]}], "}"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"#2", ",", "14"}], "]"}], ",", "#1", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], ",", "raster", 
          ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellLabel->"In[4]:=",
 CellID->1391815409,ExpressionUUID->"77cefb40-3b18-403c-b5d3-d296ab937e09"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJxl0zFMwkAUBuCLk8EVV42buuJa27jgKMydTNRRXNUVVxzVVWdmZ5xMdNaO
1YEomqCAUKBE3pX/N/e8pHnptff13XvXld3D8t6cMWZreknU4+JSxr3vxsi/
msWNgoxXxmz+jTFT2oxw4O/cLlVbpWfOv5dkIqZfL8bH+XqTfsXLPV1XPtV3
vpQf0YcHf3662ss16a+HtUZv9YP+jf1Am76dLnTo4z34yA8+PPhlu7+/defT
p2Htm/7jg4wufbduxmC/8N38InrwT/KSUZfOvh0///oAH/WDj/3CR37w4bl5
DlR9OvRPZ/nAv5N0Gz36C7YfffpZvQaqvwn9A2c/xthyh3367vrI35b2FBP6
m1JOb0g/mx+p+if08T78F+HiIf2zlhywEf01m9BY9XdM3703ZrkqQEr/yPY7
pZ/VK6W/aA/cRPV3ovsaqN84UP9dAB/36lwH6hwG8H8BqaavwA==
     "], 
     PolygonBox[{{1, 7, 8, 2}, {2, 8, 9, 3}, {3, 9, 10, 4}, {4, 10, 11, 5}, {
      5, 11, 12, 6}, {7, 13, 14, 8}, {8, 14, 15, 9}, {9, 15, 16, 10}, {10, 16,
       17, 11}, {11, 17, 18, 12}, {13, 19, 20, 14}, {14, 20, 21, 15}, {15, 21,
       22, 16}, {16, 22, 23, 17}, {17, 23, 24, 18}, {19, 25, 26, 20}, {20, 26,
       27, 21}, {21, 27, 28, 22}, {22, 28, 29, 23}, {23, 29, 30, 24}, {25, 31,
       32, 26}, {26, 32, 33, 27}, {27, 33, 34, 28}, {28, 34, 35, 29}, {29, 35,
       36, 30}, {31, 37, 38, 32}, {32, 38, 39, 33}, {33, 39, 40, 34}, {34, 40,
       41, 35}, {35, 41, 42, 36}, {37, 43, 44, 38}, {38, 44, 45, 39}, {39, 45,
       46, 40}, {40, 46, 47, 41}, {41, 47, 48, 42}, {43, 49, 50, 44}, {44, 50,
       51, 45}, {45, 51, 52, 46}, {46, 52, 53, 47}, {47, 53, 54, 48}, {49, 55,
       56, 50}, {50, 56, 57, 51}, {51, 57, 58, 52}, {52, 58, 59, 53}, {53, 59,
       60, 54}, {55, 61, 62, 56}, {56, 62, 63, 57}, {57, 63, 64, 58}, {58, 64,
       65, 59}, {59, 65, 66, 60}}]]}, {
    {RGBColor[1, 0, 0], PointSize[Medium], 
     PointBox[{{0, 0}, {2, 0}, {1, 1}, {2, 1}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[{{{0, 0}, {2, 0}}, {{1, 1}, {2, 1}}}]}, 
    {GrayLevel[0.5], {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {0, 0}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 0}, {-1, -1}]}, {InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}],
        StripOnInput->False,
        FontSize->14], {1, 1}, {-1, -1}], InsetBox[
       StyleBox[
        RowBox[{"{", 
         RowBox[{"2", ",", "2"}], "}"}],
        StripOnInput->False,
        FontSize->14], {2, 1}, {-1, -1}]}}}}]], "Output",
 CellLabel->"Out[6]=",
 CellID->381191189,ExpressionUUID->"c7754341-0a06-4bcc-b817-b8492e8fe617"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9319a62c-43db-419c-a4cb-65541fb52914"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->239400138,ExpressionUUID->"6d06edaa-3968-48e2-93fd-33de794f9a36"],

Cell[TextData[{
 "Specification of an element count in each direction must correspond to \
appropriate ",
 ButtonBox["Depth",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Depth"],
 " of raster. "
}], "ExampleText",
 CellID->128001240,ExpressionUUID->"4d39eac3-4ffe-43e2-b331-bf0c68a177cd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"mesh", "=", 
  RowBox[{"StructuredMesh", "[", 
   RowBox[{"raster", ",", 
    RowBox[{"{", 
     RowBox[{"10", ",", "5", ",", "2"}], "}"}]}], "]"}]}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->477611540,ExpressionUUID->"552f1cde-9d25-416e-b327-3e99a148d08e"],

Cell[BoxData[
 TemplateBox[{
  "StructuredMesh","array",
   "\"Raster of input points must be a full array of numbers with depth of \
\\!\\(\\*RowBox[{\\\"5\\\"}]\\).\"",2,2,57,23735420110761169629,"Local",
   "FEMUtils`StructuredMesh"},
  "MessageTemplate2"]], "Message", "MSG",
 CellLabel->"During evaluation of In[1]:=",
 CellID->361756198,ExpressionUUID->"cd5f6d56-a6b5-4e09-a863-0fb85405842e"],

Cell[BoxData["$Failed"], "Output",
 CellLabel->"Out[2]=",
 CellID->738198726,ExpressionUUID->"f5760f01-eda1-436b-a3a1-e4ef2d4de8e1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5ba2231b-ef9b-4336-98c8-8992ff70d6c6"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1691826070,ExpressionUUID->"7e311cd8-d3a3-4c0b-aca2-8938540d31e3"],

Cell[TextData[{
 "The ",
 ButtonBox["InterpolationOrder",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/InterpolationOrder"],
 " is automatically reduced in the direction where raster doesn't provide \
enough points."
}], "ExampleText",
 CellID->2104377387,ExpressionUUID->"fafa2daa-bb94-4f4c-862c-50a5ecbed75b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"4", "+", 
           RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"15", ",", "10"}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellLabel->"In[1]:=",
 CellID->1004507624,ExpressionUUID->"28ea3983-bcaa-408b-afb0-b618491219cc"],

Cell[BoxData[
 TemplateBox[{
  "ListInterpolation","inhr",
   "\"Requested order is too high; order has been reduced to \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"2\\\"}], \
\\\"}\\\"}]\\).\"",2,3,58,23735420110761169629,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellLabel->"During evaluation of In[1]:=",
 CellID->277517805,ExpressionUUID->"2b8be618-bcc1-4a3c-8b15-88aa27b5bcfe"],

Cell[BoxData[
 TemplateBox[{
  "ListInterpolation","inhr",
   "\"Requested order is too high; order has been reduced to \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"2\\\"}], \
\\\"}\\\"}]\\).\"",2,3,59,23735420110761169629,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellLabel->"During evaluation of In[1]:=",
 CellID->398846243,ExpressionUUID->"0e019eee-18aa-4764-9693-11e38ef7409a"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJx11gtMU1cYB3DspS2FAqUFeRl5hccmKCibBZR7nTinvEV0RcmICKglIKDV
bhmggIoDDUMdVMXFF6LMB+gytkIRFoGOIiMCUmEOrKvIgBZa+sDI7OB8S032
JU3zy7n35J+b8/jcdmVuSSGZmJjcffcz/P9fVVQaagBHFvzrUXDgKkNNvzeu
w9+bhjB+HgOnpRqKAp5/nwaWdBqKDp4vBtE79tX0aJcUFx55FRr9qxRHHj19
fa448SU4wT6QYsqdAFdwTw1s3qAC16X5F7j8oQOjvMjrBG+9efEYuJJ0Jih7
kgI2D2oOVEnMwefWFji+UViBl5yYmA6rtVnwa9x3Td8n9xrkOHLUtG/ZzOwY
+HI/tYTBVILJbBHXwVEN7hII5UyWHmyc9914fZh0MhMDP95TS+JwqGCyy2p+
iNACzOZOVYVHMMDH2hJ8PtYwiT8VF3grnFV464tBYXLABI4cuGjurcRaAR6+
cplpv2YKLOdwHEsvqsEbPTxY/oF6MMqLbKHVZObmY+CHfD6n/DwV7FlUKAyN
pYOdSksimrsZYP6F84d8H7EW8uvxJo/V6Td/nMSR1TMduV+UKMBLuwpf+xyd
Am+3j+DfE6rBV3pclulC9GDj76vHG6JnZncVYmD+0+xiz1tU8HrBwRsbD9DB
Jzfn1comGeDDsmORvTMsIiXHj73loQmx5ZsBzdPcMRz5dtiuMzUpE+CivgmZ
WKQE+494dkalqsGcDX15SV56MMqLbFsce/0cHwO/bHy+UpVHBfOqbl5zYNHB
yXacuSOVDDA3YHbps0zWwvc2JdbfYKdrhSM4sqCRnTEofgU+7rNq5TpfBTjq
XpK3uk4FdtVdXXxSpwMbrwdTQjPyU9ayZAx8wPPrpI1eVPDhtojOuE0WYFKH
94OYTmswze645aXtTGJHBv0B/SCVuPplx16PODGO3POpRm6NDYPX5g5/7qId
Ax88WnFutmEavG88uy78Fx0Y5UVeMnQJp4dhYKqVY4W4hgJu/ZZLCwkwB0dz
vytPlFqCe8OjnCt70PowR3lFyKXXwpJZfr/jyJr7sVJWiBw8/ULyeF/tFFi8
oTlffkgHNl6/5kRE8SOvBHcM3NZUH0jyoICzvm/7QLuIBg5fTqKsEVmAt+1J
7pAkWBExe8cC2nys0HoQIQ/mOadf66/Ekb1GOrvuSkfATg/IeFa9EmwbfGpJ
TZAOjPIiZxX8oArGMHBCdXR60XUyWMj9K/X5KBVc2Z0l+0xCA0/2KmUPYywW
1jODiJnfbyLk8Fr3Mdy/FbyNfqsnOO05jswuJAT2Jkrws/Gd9T10Hdh4vzGI
rUO2zY//JoFHrcYrn0aQwU1nTpQ6uVLBTzLkgrOpZmDfi7SWTa40wn1lSj+R
wSQa588zETI7dvT02TcS8JRfnLAlcRBHtol2Gr9fowCXJbHMgjVaMMqLfGfx
/n3YCAkcr+Ksr3Yjg5UVjSfHmijgItPzRHcDFWyzemp3PNNsYf/ZEi3z94UI
OeBKWRnNQQyW9T1zNucN4chH6JaRA+0K8Lg1wxWb04KNzwdbIjEjY0b+kgS2
jIvLCQoggxm3b/NUwxRwal6+iaOWCrZua2dU55gRVXee2C1ttyOWzd/HIuQq
ieGCrQcrCzycmdbDOPLu5dX6yEglOLWCF+7qqgOjvMiCOrcS3gwJPJfsKs7J
IYNX2L5p0PCoYN/W+ztI7/Yfsnr/5jvlNuj8sCd+nu93RMgtXp1poYpmHFnq
POe7ol0G7tb3lzi7TYGP/ka6y4rXgY3PM3vC2zAdAwN/JGaXJwyRwR/qs9+G
ppiByTsX51+88V++jkl3B141nXDwC9s66+YIfRsy6ieRUT+JjPpJ43Ed/t58
hPHzGBj1k8bv08ConzSej0H8AwtUs9c=
     "], PolygonBox[CompressedData["
1:eJwBaQKW/SFib1JiAgAAAJYAAAAEAAAAAQwNAgINDgMDDg8EBA8QBQUQEQYG
ERIHBxITCAgTFAkJFBUKChUWCwwXGA0NGBkODhkaDw8aGxAQGxwRERwdEhId
HhMTHh8UFB8gFRUgIRYXIiMYGCMkGRkkJRoaJSYbGyYnHBwnKB0dKCkeHikq
Hx8qKyAgKywhIi0uIyMuLyQkLzAlJTAxJiYxMicnMjMoKDM0KSk0NSoqNTYr
KzY3LC04OS4uOTovLzo7MDA7PDExPD0yMj0+MzM+PzQ0P0A1NUBBNjZBQjc4
Q0Q5OURFOjpFRjs7Rkc8PEdIPT1IST4+SUo/P0pLQEBLTEFBTE1CQ05PRERP
UEVFUFFGRlFSR0dSU0hIU1RJSVRVSkpVVktLVldMTFdYTU5ZWk9PWltQUFtc
UVFcXVJSXV5TU15fVFRfYFVVYGFWVmFiV1diY1hZZGVaWmVmW1tmZ1xcZ2hd
XWhpXl5pal9famtgYGtsYWFsbWJibW5jZG9wZWVwcWZmcXJnZ3JzaGhzdGlp
dHVqanV2a2t2d2xsd3htbXh5bm96e3Bwe3xxcXx9cnJ9fnNzfn90dH+AdXWA
gXZ2gYJ3d4KDeHiDhHl6hYZ7e4aHfHyHiH19iIl+fomKf3+Ki4CAi4yBgYyN
goKNjoODjo+EhZCRhoaRkoeHkpOIiJOUiYmUlYqKlZaLi5aXjIyXmI2NmJmO
jpmaj5CbnJGRnJ2Skp2ek5Oen5SUn6CVlaChlpahopeXoqOYmKOkmZmkpZqb
pqecnKeonZ2oqZ6eqaqfn6qroKCrrKGhrK2ioq2uo6Our6Skr7Clbh7Rrw==

      "]]]}, {
    {RGBColor[1, 0, 0], PointSize[Medium], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQjQ4kdF1Cfiu+tD9jXZ82b8Ezewj/pz1E9oP9JUXj
+pqbTA6o8pwOMP1xFqGaVVn8MPn9EPVCUPkP+0uX7365+68oXB6iX9IBwyEQ
4ABzDyr/J5wPcw+qPNw9DjD3oKoXgvNh7kHVD3cPmrsE4O6pen7+jPAVITT3
iMDdgyoPc48A3D28hglpN8K50NzDAXcPTB7VPQIOAFT9cZk=
      "]]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJxTTMoPSmVmYGAAYU4gZmLABBK6LiG/FV/an7GuT5u34Jk9hP/THiL7wf6S
onF9zU0mB1R5TgeY/jiLUM2qLH6Y/H6IeiGo/If9pct3v9z9VxQuD9Ev6YDh
EAhwgLkHlf8Tzoe5B1Ue7h4HmHtQ1QvB+TD3oOqHuwfNXQJw91Q9P39G+IoQ
mntE4O5BlYe5RwDuHl7DhLQb4Vxo7uGAuwcmj+oeAQcAQ7Fxiw==
      "]]}}}]], "Output",\

 CellLabel->"Out[4]=",
 CellID->108144353,ExpressionUUID->"43d5851b-e25f-4513-94c0-c35a286a00ab"]
}, Open  ]],

Cell["Fix this by specifying more data points.", "ExampleText",
 CellID->1888454932,ExpressionUUID->"f7563ba4-9add-4bb6-a629-6b4e3a64a7b9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"raster", "=", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"Sin", "[", "x", "]"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"4", "+", 
           RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"2", "Pi"}], ",", 
          RowBox[{"2", 
           RowBox[{"Pi", "/", "n"}]}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mesh", "=", 
   RowBox[{"StructuredMesh", "[", 
    RowBox[{"raster", ",", 
     RowBox[{"{", 
      RowBox[{"15", ",", "10"}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mesh", "[", "\"\<Wireframe\>\"", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Join", "@@", "raster"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed", ",", 
        RowBox[{"Line", "[", "raster", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellLabel->"In[5]:=",
 CellID->1142885746,ExpressionUUID->"16e51118-6003-4529-be46-047c9425de1b"],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[GrayLevel[0]], FaceForm[None], GraphicsComplexBox[CompressedData["
1:eJx11ns4VGkcB3BHY3IZGrciud+LtZTryjkrWpc1qyIbslKKcouosHZpy62n
dtEN5bHYLBVqo1qZyBi3RTaXRiKpzIjBmBmaae2F9/c8/bHnec45z+ef832f
c973PV/dkOidoZISEhLV/5z/3v/vsAl64E6RHMCRO4tda3kfxsEZa591CXdN
gcfLCpp1qufA2H9XIXjgBNvIUloM7hHuelWmgREfP58EFv862+s1JgNePqhE
32QSj93FwutTJ5y+ambhyGeFn1rLKk+ACz+Y3lJI5oIdyNbOuWlz4EfTHy7r
yvHBiqrxapVyC2B2X9G3JnZisLil0dldD4N8YWeOICZWCuxcybiXflAOvCFj
mudyQ3HFHNzMsd+55v5bHLknO6/yxfgMOHmiR2a4gwc+/wOPFp7EBydVd8ur
DwvAv9XbPUtlLYCrFjEX+71iMDfgu5jDxhjkD+qn6sZ3SoG7xdEp6TkU8Bmm
v4mNUIkYnSlMsNCYxx+/el6/33IaR35opGIdOc0DZ5yrOP/aRwB2bw8ssfUT
gqVFvobfSyyAOz9vbB8KWARfpbe5HTomBjd6eFUUbcQgH4+t2vGIRAZ3vdHh
69PkwScLC46btSivjP893qBvG1FRi773e1yi9l3m1rJ5cHBroVXKlABswbd/
q8oUgi+H9Qatcl0Ad9KOebsmLoKFf5rHsU6KwQY5ZHrwJgzy+dbUPLEiGZw+
6aBCJMqDT4yf8eoTKBOhceZ2OxsliJ3Zz4SDKZM48uITt0Tdijnw1OM8ty3b
+WA8baCf8aMAXM5bpyo8IwS/+iuQN2G4CK7Iurmv/rAYPOQkbeJuikF+0Dfb
B1ynpMBO+Xm140sU8BFLkdZQtPLK+yYR28rtIhbqx3DkQs9tqnnrp8AdD7Co
/QOzYFxgHHGKMg/2/n2JGirmgw0jj4U9TlgAT0QdTdnjKQaPKB61mDXAIP+A
cDCLUiwFvqJ+0O85RgHLqKbLF/kpEQFRlLuU+NVEWWJbuP6udhxZfOQzh/iq
l+Abw2freo044ACXET2jczNgiq5KxC+DPPBBLrWm6JQQzL6SeoSpLQZnSmVm
sbUwyL+1tk7Z0VYKXMrXUbAplgX3edI0rvSi/UyWKF8eLx2Z0yraGujBwJH7
O8ThphUjYP9Snl9JNhtcv1FfsyB9FlxI5dKCkwVght+OsfwZEViNo+UYooZB
Psfs6deVzSSwb1DTpVB9GfDusP1tf/grEN7hk5ZMEwXCdXk+0JHz7+p/oh3S
Cpa003ZO29KGI+cRIYyJc2PgGZ3omXvMafBQTvYlx0w+mJG2r1uaIQI3Ddtc
8lfCIH/Ll7dfsvxJ4GCHb2n0ptVgbt/seKO33Mp8pqL1RkdOyL7lG1n6HByY
0ZprQM0Bm+4gjzIpQzgyUe00kXd7EqyFlVDWsebBUocM35WVicAt1UXXJBUw
yHcYd7lQrEACP7xP49Y2k8FmV2Wa3HVkCD2r0AEiSol4uLyf0ZHb5bXbo9zG
wH7hsYzrCw3gsNPJ19I39+PI+1rafJJtOGDrmuyqB6fnwfc0y1jpF0Xg5L3F
qyflMMgvkU8a5LBXgePCyn8K8CCDFW3nDvgqSa+sPxVi5X9BR3bhRup0sUbB
7R20i5rRd8ESlrM3JXgDOHJacRMzjc4BWzc4WRuUzoOVrGSkRAUi8Gip/4Yb
FAzy9zwZWm8sXAU2i2yqPp5ABq9htlKvx0kT16qeqmq1qhLmy/9jOnJv7PD6
kPN94Lk8T+Zh3Ts4MvuLi0v2ISPgfJtugTd5Cuy1jWmUYsgHLwl7ZEzviMC3
c012v1yDQf4jbVnPWAsSeJNfnLGK1WowP8ajKlcR7RfriIblvkNHjrkQXvdi
TTF4PrspuWbpKY58VcdNve3n12DpvfYz2r4zYC4n663PPB/M0NjcYz8oApeZ
vDklqYpBfnHCQnxCJglcV645pRwkDW7j6qklXKcQauYuPiJddehtyKhPIqM+
iYz6JDLqk8ioTyKjPomM+uTHzyeBUZ/8eHxU4m8NRAn9
     "], 
     PolygonBox[CompressedData["
1:eJwBaQKW/SFib1JiAgAAAJYAAAAEAAAAAQwNAgINDgMDDg8EBA8QBQUQEQYG
ERIHBxITCAgTFAkJFBUKChUWCwwXGA0NGBkODhkaDw8aGxAQGxwRERwdEhId
HhMTHh8UFB8gFRUgIRYXIiMYGCMkGRkkJRoaJSYbGyYnHBwnKB0dKCkeHikq
Hx8qKyAgKywhIi0uIyMuLyQkLzAlJTAxJiYxMicnMjMoKDM0KSk0NSoqNTYr
KzY3LC04OS4uOTovLzo7MDA7PDExPD0yMj0+MzM+PzQ0P0A1NUBBNjZBQjc4
Q0Q5OURFOjpFRjs7Rkc8PEdIPT1IST4+SUo/P0pLQEBLTEFBTE1CQ05PRERP
UEVFUFFGRlFSR0dSU0hIU1RJSVRVSkpVVktLVldMTFdYTU5ZWk9PWltQUFtc
UVFcXVJSXV5TU15fVFRfYFVVYGFWVmFiV1diY1hZZGVaWmVmW1tmZ1xcZ2hd
XWhpXl5pal9famtgYGtsYWFsbWJibW5jZG9wZWVwcWZmcXJnZ3JzaGhzdGlp
dHVqanV2a2t2d2xsd3htbXh5bm96e3Bwe3xxcXx9cnJ9fnNzfn90dH+AdXWA
gXZ2gYJ3d4KDeHiDhHl6hYZ7e4aHfHyHiH19iIl+fomKf3+Ki4CAi4yBgYyN
goKNjoODjo+EhZCRhoaRkoeHkpOIiJOUiYmUlYqKlZaLi5aXjIyXmI2NmJmO
jpmaj5CbnJGRnJ2Skp2ek5Oen5SUn6CVlaChlpahopeXoqOYmKOkmZmkpZqb
pqecnKeonZ2oqZ6eqaqfn6qroKCrrKGhrK2ioq2uo6Our6Skr7Clbh7Rrw==

      "]]]}, {
    {RGBColor[1, 0, 0], PointSize[Medium], PointBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQjQ4kdF1Cfiu+tD9jXZ82b8Ezewj/pz1E9oP9JUXj
+pqbTA6o8pwOMP1xFqGaVVn8MPn9EPVCUPkP+0uX7365+68oXB6iX9IBwyFQ
+2Du+Xxu/kz1FV/R3PMD7h5UeZh7PtjD3COVdODMhvVP7FHd88Ae5h6YPKp7
PtijOcgB5h5U/k84H+YeVHl4+DjA3IOqXgjOh7kHVT88fNDCSQDunqrn588I
XxFCc48I3D2o8jD3CMDdw2uYkHYjnAvNPRxw98DkUd0j4AAA7MmjEw==
      "]]}, 
    {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJxTTMoPSmVmYGBgAWJOIGZiwAQSui4hvxVf2p+xrk+bt+CZPYT/0x4i+8H+
kqJxfc1NJgdUeU4HmP44i1DNqix+mPx+iHohqPyH/aXLd7/c/VcULg/RL+mA
4RCofTD3fD43f6b6iq9o7vkBdw+qPMw9H+xh7pFKOnBmw/on9qjueWAPcw9M
HtU9H+zRHOQAcw8q/yecD3MPqjw8fBxg7kFVLwTnw9yDqh8ePmjhJAB3T9Xz
82eErwihuUcE7h5UeZh7BODu4TVMSLsRzoXmHg64e2DyqO4RcAAAwWGi/Q==

      "]]}}}]], "Output",
 CellLabel->"Out[8]=",
 CellID->38596814,ExpressionUUID->"e0e9ab1f-3e8f-4b0c-beb8-3f640ee2ddf5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "488f674c-0667-4117-bdb7-1ee08a51b436"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"a269756b-25d4-4cbd-a7db-c29a89caf10c"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "fc277a5b-25fd-434a-bc0a-527f77942a40"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"df9f2ec2-f2dc-457d-9f85-b3985558a4e7"]
}, Open  ]]
},
WindowSize->{476, 1041},
WindowMargins->{{Automatic, 482}, {Automatic, 18}},
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[28679, 840, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"a1cfa534-1e3d-4052-94f6-d7adf1f5f211",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 282245, 6167}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 601, 14, 25, "History",ExpressionUUID->"fd8dc8a0-50e0-49f8-9ef0-872ee681dd96",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1184, 38, 123, 1, 30, "CategorizationSection",ExpressionUUID->"f7701002-67bc-450d-82cc-0acda429b4c2",
 CellID->1122911449],
Cell[1310, 41, 134, 2, 493, "Categorization",ExpressionUUID->"6350031f-09b2-41c7-9098-7b83fb1aaefc",
 CellID->686433507],
Cell[1447, 45, 137, 2, 493, "Categorization",ExpressionUUID->"913a514c-4838-47a0-b96f-f27314667753",
 CellID->605800465],
Cell[1587, 49, 133, 2, 493, "Categorization",ExpressionUUID->"655282dc-2bb8-406d-b2e7-6c4a6cf5809b",
 CellID->468444828],
Cell[1723, 53, 128, 1, 493, "Categorization",ExpressionUUID->"cea1489b-892a-499d-bcf3-3d1e14267d9f"]
}, Closed]],
Cell[CellGroupData[{
Cell[1888, 59, 110, 1, 20, "KeywordsSection",ExpressionUUID->"f8b5ef25-c27b-46b4-9c71-15ce5fc29f2f",
 CellID->477174294],
Cell[2001, 62, 100, 1, 282, "Keywords",ExpressionUUID->"0f3a9db3-ef83-49e6-b034-29d00c3774d4",
 CellID->1164421360],
Cell[2104, 65, 106, 1, 282, "Keywords",ExpressionUUID->"db847bc1-1922-4cfd-a4c4-477ced4d905a",
 CellID->777397117],
Cell[2213, 68, 109, 1, 282, "Keywords",ExpressionUUID->"d1febd9e-f08c-4264-a008-0715c6743afc",
 CellID->58035295],
Cell[2325, 71, 113, 1, 282, "Keywords",ExpressionUUID->"31fa05dc-189f-4d3c-bd77-0d7acfe6567a",
 CellID->447736924]
}, Closed]],
Cell[CellGroupData[{
Cell[2475, 77, 120, 1, 20, "TemplatesSection",ExpressionUUID->"74d81c92-9897-494e-8154-a7125572632b",
 CellID->1872225408],
Cell[2598, 80, 149, 2, 456, "Template",ExpressionUUID->"0ac9c217-e0d5-4174-a5e6-062b5251b4b5",
 CellID->1562036412],
Cell[2750, 84, 137, 2, 456, "Template",ExpressionUUID->"a2263205-3d49-4549-8650-2d9f640a908e",
 CellID->158391909],
Cell[2890, 88, 136, 2, 456, "Template",ExpressionUUID->"50e67b05-862a-4099-9dcf-2a90176d6fbc",
 CellID->1360575930],
Cell[3029, 92, 137, 2, 456, "Template",ExpressionUUID->"4327a0f1-4763-4a67-93cd-32e48862b959",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3203, 99, 108, 1, 20, "DetailsSection",ExpressionUUID->"f40a6db0-a739-42e9-83ad-b98fff7fb1d8",
 CellID->307771771],
Cell[3314, 102, 118, 2, 493, "Details",ExpressionUUID->"96e84e44-edb8-41dc-9931-2b23f6da4f0a",
 CellID->670882175],
Cell[3435, 106, 124, 2, 493, "Details",ExpressionUUID->"01152d94-d482-4de7-8f06-51d9584fd3b0",
 CellID->350963985],
Cell[3562, 110, 119, 2, 493, "Details",ExpressionUUID->"a23b47c2-2427-49ad-8948-f71d7aa21b14",
 CellID->8391405],
Cell[3684, 114, 124, 2, 493, "Details",ExpressionUUID->"f706493c-db32-4e9c-8d47-418a9ebfd10f",
 CellID->3610269],
Cell[3811, 118, 116, 2, 493, "Details",ExpressionUUID->"4f4c2b3d-67e2-498c-b8c3-cc30406e6708",
 CellID->401364205],
Cell[3930, 122, 116, 2, 493, "Details",ExpressionUUID->"8fad27a8-ba28-4a1d-a604-8d06fe099844",
 CellID->350204745],
Cell[4049, 126, 118, 2, 493, "Details",ExpressionUUID->"615373c0-3415-4cf9-b4ef-9b279ba40d90",
 CellID->732958810],
Cell[4170, 130, 133, 2, 493, "Details",ExpressionUUID->"dc20f845-a7ce-4e79-b44f-2df0958b1487",
 CellID->222905350],
Cell[4306, 134, 122, 2, 493, "Details",ExpressionUUID->"27be7c47-8b5c-4ead-9ac8-c89ea385f490",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4465, 141, 112, 1, 65, "ObjectName",ExpressionUUID->"fad6b7de-c8be-4f1b-99df-967992e368e3",
 CellID->1224892054],
Cell[4580, 144, 156, 1, 34, "Notes",ExpressionUUID->"0ee40a55-141c-46f7-b2de-62fd86098088",
 CellID->55248371],
Cell[4739, 147, 2117, 65, 128, "Usage",ExpressionUUID->"52ace7ab-3038-4e7f-92b6-ffc1b3cef03d",
 CellID->982511436],
Cell[6859, 214, 475, 13, 27, "Notes",ExpressionUUID->"bffab9eb-6154-4897-80d6-19c38dcd2202",
 CellID->1067943069],
Cell[7337, 229, 328, 9, 27, "Notes",ExpressionUUID->"8694d857-989a-484f-b624-162295f264ec",
 CellID->1790089096],
Cell[7668, 240, 362, 9, 27, "Notes",ExpressionUUID->"52ad10d9-9ac9-4402-a25b-e7ac691a8517",
 CellID->1844186418],
Cell[8033, 251, 333, 9, 27, "Notes",ExpressionUUID->"a35eb91a-68d5-4ec0-95d6-0c9487461fce",
 CellID->999912828],
Cell[8369, 262, 359, 9, 27, "Notes",ExpressionUUID->"8fecea63-1456-4f72-bf7b-9e12d0e85ce2",
 CellID->1358112315],
Cell[8731, 273, 330, 9, 27, "Notes",ExpressionUUID->"88a75643-f7f6-4fce-9f94-aaf4c9ababe5",
 CellID->449574948],
Cell[9064, 284, 500, 16, 27, "Notes",ExpressionUUID->"461508c2-2619-4b91-acfe-f183f88067fb",
 CellID->225456746],
Cell[9567, 302, 489, 14, 30, "Notes",ExpressionUUID->"fa5985df-89bd-4e03-8d20-534213aec050",
 CellID->1185393627],
Cell[10059, 318, 366, 10, 27, "Notes",ExpressionUUID->"ca137e2c-4ed8-427c-9846-5c18a08acab5",
 CellID->217063160],
Cell[10428, 330, 497, 14, 27, "Notes",ExpressionUUID->"2167e08c-2b5c-495f-bd37-f7881d74ee15",
 CellID->2146619295],
Cell[10928, 346, 245, 6, 27, "Notes",ExpressionUUID->"c3d4e61e-5c8b-42fe-8d97-6d6d9e648380",
 CellID->159774142],
Cell[11176, 354, 678, 13, 45, "3ColumnTableMod",ExpressionUUID->"33cb0f66-f1f6-4047-b8f9-264eb89bb932",
 CellID->698312613]
}, Open  ]],
Cell[CellGroupData[{
Cell[11891, 372, 112, 1, 46, "TutorialsSection",ExpressionUUID->"4c609ed0-0f7b-4ef9-a253-c5a828efc6c4",
 CellID->250839057],
Cell[12006, 375, 100, 1, 17, "Tutorials",ExpressionUUID->"19ac197d-0e9f-4132-894b-2b7cdbb3413e",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[12143, 381, 138, 1, 33, "RelatedDemonstrationsSection",ExpressionUUID->"387b5f64-e3da-4ca4-9f29-d26ab000a6c4",
 CellID->1268215905],
Cell[12284, 384, 113, 1, 17, "RelatedDemonstrations",ExpressionUUID->"eb191ec8-db74-4f62-9390-ed88f6fd2ee2",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[12434, 390, 120, 1, 33, "RelatedLinksSection",ExpressionUUID->"993e4afb-1574-4802-b1fd-64418a44d488",
 CellID->1584193535],
Cell[12557, 393, 104, 1, 17, "RelatedLinks",ExpressionUUID->"ea62d772-14d1-4036-ac29-44b92197a6c8",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[12698, 399, 110, 1, 33, "SeeAlsoSection",ExpressionUUID->"86b64511-83b1-4208-a010-b7cffde5c663",
 CellID->1255426704],
Cell[12811, 402, 586, 14, 21, "SeeAlso",ExpressionUUID->"c0c83ee8-4bd8-4fc6-b92f-40cc28dc0848",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[13434, 421, 112, 1, 33, "MoreAboutSection",ExpressionUUID->"89feedf4-0607-4d8c-8832-5c432a51e355",
 CellID->38303248],
Cell[13549, 424, 101, 1, 17, "MoreAbout",ExpressionUUID->"e9c90814-b9b5-4711-a5e9-e5dcdebd4a31",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[13687, 430, 411, 11, 71, "PrimaryExamplesSection",ExpressionUUID->"fcdfd8bc-d9d5-453f-8255-91b3520e8c8e",
 CellID->880084151],
Cell[14101, 443, 115, 1, 21, "ExampleText",ExpressionUUID->"82a33835-3483-4737-ada3-e2947eb69864",
 CellID->810745662],
Cell[14219, 446, 199, 4, 44, "Input",ExpressionUUID->"e0876beb-d3c4-48f3-b435-91d276e8eef7",
 InitializationCell->True,
 CellID->49404476],
Cell[14421, 452, 184, 4, 21, "ExampleText",ExpressionUUID->"466801eb-c225-4eab-891f-82819a526ba4",
 CellID->66993912],
Cell[CellGroupData[{
Cell[14630, 460, 733, 24, 51, "Input",ExpressionUUID->"5222c629-d790-40a3-8dce-a990e986ae38",
 CellID->663765714],
Cell[15366, 486, 693, 22, 27, "Output",ExpressionUUID->"b193345d-51a1-471b-b3e2-a0e746d65c61",
 CellID->199721158]
}, Open  ]],
Cell[16074, 511, 284, 5, 35, "ExampleText",ExpressionUUID->"64cb8764-3518-414c-a37a-af2a0c62b460",
 CellID->116343895],
Cell[CellGroupData[{
Cell[16383, 520, 1373, 36, 205, "Input",ExpressionUUID->"3f421197-0da8-412a-ab8b-8177e6e52e6f",
 CellID->97592908],
Cell[17759, 558, 2585, 51, 134, "Output",ExpressionUUID->"5adc4078-6cc3-4331-ae89-26aff2c1c7b6",
 CellID->447486330]
}, Open  ]],
Cell[CellGroupData[{
Cell[20381, 614, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"b3beeb91-e1da-43cc-bccb-2905213575ba",
 CellID->108490381],
Cell[20626, 621, 260, 7, 21, "ExampleText",ExpressionUUID->"12da81bf-69ae-47cf-92b7-d820469bc80d",
 CellID->53724276],
Cell[CellGroupData[{
Cell[20911, 632, 1502, 45, 139, "Input",ExpressionUUID->"a65ebcf4-0f8e-4ffe-8f91-bf8a03a87375",
 CellID->7484758],
Cell[22416, 679, 767, 24, 50, "Output",ExpressionUUID->"1c042fee-9885-401e-924a-7c9417f2e73b",
 CellID->36363739]
}, Open  ]],
Cell[23198, 706, 349, 6, 49, "ExampleText",ExpressionUUID->"e48457f2-ca79-4efb-909e-9d38abc8f99a",
 CellID->1556833664],
Cell[CellGroupData[{
Cell[23572, 716, 1366, 35, 205, "Input",ExpressionUUID->"0f57bb70-201d-46e8-8821-86c2828fd73e",
 CellID->290397496],
Cell[24941, 753, 3677, 80, 171, "Output",ExpressionUUID->"581912f0-bb3c-4a94-85e7-7e64d2c79540",
 CellID->204787170]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28679, 840, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"a1cfa534-1e3d-4052-94f6-d7adf1f5f211",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[28859, 846, 242, 5, 31, "ExampleSection",ExpressionUUID->"0c2fd6ff-6805-4e88-9123-2dddb2f12adf",
 CellID->1293636265],
Cell[29104, 853, 185, 4, 21, "ExampleText",ExpressionUUID->"5daef3e0-bcc3-46e9-ba77-1672b192bb77",
 CellID->129969071],
Cell[CellGroupData[{
Cell[29314, 861, 891, 29, 51, "Input",ExpressionUUID->"a12f42d8-3da6-4796-a311-51413297d7e4",
 CellID->1854949427],
Cell[30208, 892, 693, 22, 27, "Output",ExpressionUUID->"ba8118d5-fa46-496a-8a5c-90b00fb0d855",
 CellID->489292833]
}, Open  ]],
Cell[30916, 917, 180, 3, 21, "ExampleText",ExpressionUUID->"a095232c-b03f-4f71-b440-bdf9298782af",
 CellID->504683475],
Cell[CellGroupData[{
Cell[31121, 924, 791, 20, 161, "Input",ExpressionUUID->"6b41b899-4c1c-4599-a4fc-783b2ef4e694",
 CellID->1406407811],
Cell[31915, 946, 1933, 31, 250, "Output",ExpressionUUID->"715e389f-8b80-4a21-9886-edd763e8a3be",
 CellID->87266120]
}, Open  ]],
Cell[33863, 980, 227, 4, 35, "ExampleText",ExpressionUUID->"35c989b0-0e35-449f-9dad-1aebfdad49f1",
 CellID->66673112],
Cell[CellGroupData[{
Cell[34115, 988, 226, 5, 28, "Input",ExpressionUUID->"c6337fec-e4d8-4d08-b9ba-1dc874137090",
 CellID->143354820],
Cell[34344, 995, 607, 20, 27, "Output",ExpressionUUID->"552b5a21-b395-47b8-b44f-268180036010",
 CellID->489589857]
}, Open  ]],
Cell[34966, 1018, 230, 4, 35, "ExampleText",ExpressionUUID->"afc87aa9-f2a2-46ce-bafe-19eb607d869f",
 CellID->11367452],
Cell[CellGroupData[{
Cell[35221, 1026, 1031, 28, 205, "Input",ExpressionUUID->"f3a1eb48-6122-4629-b582-58d63eadeb3b",
 CellID->337732940],
Cell[36255, 1056, 2176, 35, 250, "Output",ExpressionUUID->"cfb72127-68df-4d52-a14a-a4cc5547d18c",
 CellID->47874473]
}, Open  ]],
Cell[CellGroupData[{
Cell[38468, 1096, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"a5c3b5dd-56b1-4c73-8ec9-fa78dbec71c7",
 CellID->575486415],
Cell[38713, 1103, 155, 1, 21, "ExampleText",ExpressionUUID->"5d367ceb-bdbc-4409-a4dd-2027f3bf184c",
 CellID->1995398157],
Cell[CellGroupData[{
Cell[38893, 1108, 1277, 38, 139, "Input",ExpressionUUID->"8e6e8d0d-ffd1-4767-8212-b3913da37573",
 CellID->77902390],
Cell[40173, 1148, 733, 23, 27, "Output",ExpressionUUID->"6a0ae6c8-1cd9-4c75-aa24-62acc0db8f6b",
 CellID->758709028]
}, Open  ]],
Cell[40921, 1174, 181, 3, 21, "ExampleText",ExpressionUUID->"5fe943ea-febf-490e-b3a2-0d3c7ca18f19",
 CellID->1233599156],
Cell[CellGroupData[{
Cell[41127, 1181, 789, 20, 161, "Input",ExpressionUUID->"1bb9a274-f3e4-460f-8795-371e18ef4c72",
 CellID->47542465],
Cell[41919, 1203, 8337, 136, 239, "Output",ExpressionUUID->"5254ec6f-abbd-4697-bd4e-0853226d4a2c",
 CellID->788544873]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50305, 1345, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"f69811fe-d4fc-4b3f-8f15-9816515404af",
 CellID->154001524],
Cell[50550, 1352, 154, 1, 21, "ExampleText",ExpressionUUID->"62225155-82af-49a6-85c0-2601c0e3256e",
 CellID->648470276],
Cell[CellGroupData[{
Cell[50729, 1357, 1188, 35, 139, "Input",ExpressionUUID->"827ef958-aaf3-4ea6-ae64-1a23226e41d0",
 CellID->579495518],
Cell[51920, 1394, 7464, 126, 249, "Output",ExpressionUUID->"5f892a67-c10a-4435-8407-0cdc58330453",
 CellID->276462350]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59433, 1526, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"17883435-9e07-4f6f-b145-e77299e32ce2",
 CellID->464710515],
Cell[59678, 1533, 141, 1, 21, "ExampleText",ExpressionUUID->"e9bcc0d7-093c-4156-a468-b485e7771b8c",
 CellID->437510465],
Cell[CellGroupData[{
Cell[59844, 1538, 2626, 77, 293, "Input",ExpressionUUID->"a6f72ada-10a1-4f11-bfbe-9a363e1a75da",
 CellID->236247160],
Cell[62473, 1617, 769, 24, 50, "Output",ExpressionUUID->"5611ce2e-61ff-4880-bae3-d6e910a4ae1b",
 CellID->377952970]
}, Open  ]],
Cell[63257, 1644, 204, 4, 21, "ExampleText",ExpressionUUID->"53b64a83-ea34-43b2-9f1f-1d2551fc8fca",
 CellID->1124190846],
Cell[CellGroupData[{
Cell[63486, 1652, 824, 20, 161, "Input",ExpressionUUID->"bba0c3ce-f71f-428f-a849-bb0d6a9c3143",
 CellID->1658937133],
Cell[64313, 1674, 5449, 94, 250, "Output",ExpressionUUID->"5a722486-dc06-444a-abd7-4861f7dda788",
 CellID->221260973]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[69811, 1774, 243, 5, 16, "ExampleDelimiter",ExpressionUUID->"e2b39679-ab80-42c2-9331-ce2d68fa6693",
 CellID->1014460609],
Cell[70057, 1781, 141, 1, 21, "ExampleText",ExpressionUUID->"623256b6-9363-4215-8882-17dc3b3dbbcd",
 CellID->8680712],
Cell[CellGroupData[{
Cell[70223, 1786, 2117, 55, 205, "Input",ExpressionUUID->"64f7ace6-881a-4685-b7b8-798297ad831b",
 CellID->759988248],
Cell[72343, 1843, 10327, 174, 250, "Output",ExpressionUUID->"97dd08d6-1eb6-4c66-9d43-0511eee26a35",
 CellID->47318728]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[82719, 2023, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"ed2536f4-1d2a-4f8e-a4f2-fcbaa0a7faeb",
 CellID->240973856],
Cell[82964, 2030, 483, 11, 39, "ExampleText",ExpressionUUID->"fdfa2a5c-8835-4a5f-bb64-b1517b73b963",
 CellID->1863989885],
Cell[CellGroupData[{
Cell[83472, 2045, 1772, 48, 271, "Input",ExpressionUUID->"81152399-c6ab-4386-870d-f534c134b787",
 CellID->189774995],
Cell[85247, 2095, 49023, 814, 212, "Output",ExpressionUUID->"784853da-85c1-4c44-abfa-b1cc6862b545",
 CellID->384411522]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[134319, 2915, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"c3b4b784-5913-438b-87c4-4a7520898369",
 CellID->223730839],
Cell[134564, 2922, 193, 4, 21, "ExampleText",ExpressionUUID->"ed97175e-dd88-48a1-ba06-54412202ebde",
 CellID->497245590],
Cell[CellGroupData[{
Cell[134782, 2930, 1072, 32, 117, "Input",ExpressionUUID->"3e125fa9-a128-40ec-a07f-10e013357321",
 CellID->779272399],
Cell[135857, 2964, 3684, 87, 247, "Output",ExpressionUUID->"fbc92fdf-a562-406d-bcee-5e4f71b7a40b",
 CellID->1187055]
}, Open  ]],
Cell[CellGroupData[{
Cell[139578, 3056, 1871, 54, 227, "Input",ExpressionUUID->"b7b5e56a-08c1-4c1f-8f56-68743c26a713",
 CellID->798070886],
Cell[141452, 3112, 3399, 58, 240, "Output",ExpressionUUID->"cf4a8586-a9f5-41ac-987e-09cd5f2403ac",
 CellID->3140830]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[144890, 3175, 265, 5, 31, "ExampleSection",ExpressionUUID->"6809a92e-c221-453e-a693-98ba162376cd",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[145180, 3184, 244, 5, 19, "ExampleSection",ExpressionUUID->"34c03cae-a1de-453f-9e4f-5c3858ad9617",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[145449, 3193, 261, 5, 22, "ExampleSubsection",ExpressionUUID->"2d056a61-034a-41d4-a153-abdf090a3e2d",
 CellID->1757724783],
Cell[145713, 3200, 384, 9, 35, "ExampleText",ExpressionUUID->"e18faeea-7d5e-4a2c-8090-b70e58370c56",
 CellID->534249995],
Cell[146100, 3211, 308, 8, 35, "ExampleText",ExpressionUUID->"f9a806ae-5163-4d30-8e67-d61cd1b709e7",
 CellID->1775503447],
Cell[146411, 3221, 2793, 74, 381, "Input",ExpressionUUID->"33e31947-431c-4fdd-b5d0-1096c998989d",
 CellID->738571383],
Cell[CellGroupData[{
Cell[149229, 3299, 385, 10, 51, "Input",ExpressionUUID->"8102607d-37bc-45ff-93de-e726b3f8a845",
 CellID->298687528],
Cell[149617, 3311, 9439, 161, 188, "Output",ExpressionUUID->"b6703f80-2263-44fd-865c-d6178eb55963",
 CellID->162650595]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[159105, 3478, 254, 5, 22, "ExampleSubsection",ExpressionUUID->"433ffb84-8056-491b-b8f2-6633ce9f740d",
 CellID->71641853],
Cell[159362, 3485, 256, 4, 35, "ExampleText",ExpressionUUID->"6b3bd4ee-8fd6-400f-8ac6-25c36f324b9d",
 CellID->355665184],
Cell[CellGroupData[{
Cell[159643, 3493, 740, 20, 117, "Input",ExpressionUUID->"7d6b5e9c-20ae-4ac2-a505-7f1a8f203584",
 CellID->87048079],
Cell[160386, 3515, 981, 29, 72, "Output",ExpressionUUID->"2ab1f559-c859-44e0-b683-a1f0bbe26372",
 CellID->206227413]
}, Open  ]],
Cell[161382, 3547, 636, 15, 57, "ExampleText",ExpressionUUID->"afa8ebad-415a-43a4-97dd-8066d5df2865",
 CellID->5355150],
Cell[162021, 3564, 615, 14, 39, "ExampleText",ExpressionUUID->"4b0aa887-fb40-4979-886a-b082cdd29a4e",
 CellID->241856028],
Cell[CellGroupData[{
Cell[162661, 3582, 1362, 35, 249, "Input",ExpressionUUID->"375294b8-ac57-4f8a-9c24-c4c605604709",
 CellID->800338398],
Cell[164026, 3619, 691, 22, 27, "Output",ExpressionUUID->"5d893f61-156d-4d3e-a7da-4d48911ce228",
 CellID->84053654],
Cell[164720, 3643, 1976, 35, 250, "Output",ExpressionUUID->"01a41505-b6d5-4483-a80b-8a2e24190963",
 CellID->114580592]
}, Open  ]],
Cell[166711, 3681, 330, 7, 39, "ExampleText",ExpressionUUID->"ee466f26-3c06-4905-ace8-a4a41b3b9e12",
 CellID->544023560],
Cell[CellGroupData[{
Cell[167066, 3692, 860, 22, 183, "Input",ExpressionUUID->"e750eaf4-eceb-4268-9a87-f6f852302226",
 CellID->312315301],
Cell[167929, 3716, 691, 22, 27, "Output",ExpressionUUID->"f155652d-9309-4a13-bc79-96081c9cbdd6",
 CellID->49035003],
Cell[168623, 3740, 1342, 26, 250, "Output",ExpressionUUID->"8529a34c-6ab0-43a9-81ee-fee293bc031a",
 CellID->26259509]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[170026, 3773, 248, 5, 31, "ExampleSection",ExpressionUUID->"d7de79be-4b9f-4d59-8a34-0eb2d475c45b",
 CellID->258228157],
Cell[170277, 3780, 176, 3, 21, "ExampleText",ExpressionUUID->"223d869f-742d-4796-8f08-98465f430199",
 CellID->374874271],
Cell[170456, 3785, 1085, 32, 117, "Input",ExpressionUUID->"a11ea07c-afba-489e-827b-3118579facdd",
 CellID->256724169],
Cell[171544, 3819, 118, 1, 21, "ExampleText",ExpressionUUID->"f00efd97-5141-437a-8300-38d71759e03d",
 CellID->1977550056],
Cell[CellGroupData[{
Cell[171687, 3824, 1371, 38, 183, "Input",ExpressionUUID->"ddf65480-0943-4bcb-97b0-9ce63bdac91f",
 CellID->1661888300],
Cell[173061, 3864, 23770, 436, 60, "Output",ExpressionUUID->"f6d0ac8c-4692-4743-889a-164eed26f715",
 CellID->571860518]
}, Open  ]],
Cell[196846, 4303, 120, 1, 21, "ExampleText",ExpressionUUID->"0a40aa1e-2085-43f8-8490-b9c909979254",
 CellID->1580758525],
Cell[CellGroupData[{
Cell[196991, 4308, 1542, 35, 381, "Input",ExpressionUUID->"326926d4-1da3-45f3-aac4-4cdc1d120a22",
 CellID->1622752499],
Cell[198536, 4345, 37259, 631, 129, "Output",ExpressionUUID->"e9275a72-8aea-4ae4-849a-ad3d32e20177",
 CellID->734008632]
}, Open  ]],
Cell[CellGroupData[{
Cell[235832, 4981, 243, 5, 16, "ExampleDelimiter",ExpressionUUID->"3daa16e9-b32e-47cd-9594-ea01f37a6671",
 CellID->1954176302],
Cell[236078, 4988, 141, 1, 21, "ExampleText",ExpressionUUID->"c173a5d3-ddb3-4ea7-9be2-b054b11eff68",
 CellID->647467425],
Cell[CellGroupData[{
Cell[236244, 4993, 1334, 37, 161, "Input",ExpressionUUID->"428d7ccb-dd43-4e7f-b1d9-e7002cb13871",
 CellID->1123084471],
Cell[237581, 5032, 143, 2, 27, "Output",ExpressionUUID->"94c80242-b264-421c-8a13-f254ca84e283",
 CellID->226381841]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[237763, 5039, 259, 5, 31, "ExampleSection",ExpressionUUID->"b6743148-82a3-4378-9656-4a0cf2a5d5a9",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[238047, 5048, 252, 5, 19, "ExampleSection",ExpressionUUID->"ded2aee0-d3cd-433e-a1bc-161ea4b03cbe",
 CellID->1305812373],
Cell[238302, 5055, 143, 1, 21, "ExampleText",ExpressionUUID->"de5db84c-ddfc-4da1-8b9c-f8f0293161fd",
 CellID->221149461],
Cell[238448, 5058, 1230, 37, 117, "Input",ExpressionUUID->"fb624a2d-1eff-4e1d-bec8-6e5c3024e158",
 CellID->1950934393],
Cell[239681, 5097, 378, 9, 39, "ExampleText",ExpressionUUID->"2c792e8e-e0bf-4d7b-bd09-2fb0984f3d66",
 CellID->1414465523],
Cell[CellGroupData[{
Cell[240084, 5110, 1455, 42, 161, "Input",ExpressionUUID->"eb26d741-984a-47b2-ade4-ed65e5ad9ac3",
 CellID->1777271000],
Cell[241542, 5154, 2083, 41, 174, "Output",ExpressionUUID->"93f1b58c-0d9e-4140-9303-cc30980b9d08",
 CellID->163100754]
}, Open  ]],
Cell[CellGroupData[{
Cell[243662, 5200, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"621f057e-5ce5-4955-969e-c2f03e8dd302",
 CellID->580939214],
Cell[243907, 5207, 250, 4, 35, "ExampleText",ExpressionUUID->"93b57372-b5cf-4c2d-8bbd-a449e5e3e11f",
 CellID->45373243],
Cell[CellGroupData[{
Cell[244182, 5215, 2068, 59, 315, "Input",ExpressionUUID->"480f1f06-2ccf-4e6e-992d-b936146208eb",
 CellID->13674247],
Cell[246253, 5276, 521, 10, 57, "Message",ExpressionUUID->"d260978c-6086-43b8-a9b7-400826b6f33a",
 CellID->62685563],
Cell[246777, 5288, 2590, 51, 134, "Output",ExpressionUUID->"2985be35-b7d6-4765-9648-ad8ea2da0dff",
 CellID->150460872]
}, Open  ]],
Cell[249382, 5342, 143, 1, 21, "ExampleText",ExpressionUUID->"afcbe88d-5475-43d4-9508-68ae041e1b13",
 CellID->1397881661],
Cell[CellGroupData[{
Cell[249550, 5347, 2069, 59, 315, "Input",ExpressionUUID->"98756a4a-fa97-44ac-85ca-bfc5707fbfe1",
 CellID->486589843],
Cell[251622, 5408, 2585, 51, 134, "Output",ExpressionUUID->"6ca082f5-2732-4b6f-8069-f64f5fe0051d",
 CellID->29742862]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[254256, 5465, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"0c9d1e2d-b3a0-4d39-89e3-15ed11d35302",
 CellID->737522101],
Cell[254501, 5472, 153, 1, 21, "ExampleText",ExpressionUUID->"6cb7c325-9811-4516-b5a5-3d6747b0b09c",
 CellID->202191373],
Cell[CellGroupData[{
Cell[254679, 5477, 2080, 60, 315, "Input",ExpressionUUID->"1ee574de-5926-49eb-897a-8affa4ecb317",
 CellID->372323046],
Cell[256762, 5539, 523, 10, 57, "Message",ExpressionUUID->"7f3abea9-91cb-40ad-8861-9a4bf2fcabc0",
 CellID->227778091],
Cell[257288, 5551, 2588, 51, 134, "Output",ExpressionUUID->"9e2ea6dd-e626-43b8-a50e-b5b1487b6e57",
 CellID->10575923]
}, Open  ]],
Cell[259891, 5605, 149, 1, 21, "ExampleText",ExpressionUUID->"a31247df-e6d6-4dfd-aa44-db03cf930e68",
 CellID->1868227760],
Cell[CellGroupData[{
Cell[260065, 5610, 2086, 60, 315, "Input",ExpressionUUID->"77cefb40-3b18-403c-b5d3-d296ab937e09",
 CellID->1391815409],
Cell[262154, 5672, 2586, 51, 134, "Output",ExpressionUUID->"c7754341-0a06-4bcc-b817-b8492e8fe617",
 CellID->381191189]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[264789, 5729, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"6d06edaa-3968-48e2-93fd-33de794f9a36",
 CellID->239400138],
Cell[265034, 5736, 291, 8, 35, "ExampleText",ExpressionUUID->"4d39eac3-4ffe-43e2-b331-bf0c68a177cd",
 CellID->128001240],
Cell[CellGroupData[{
Cell[265350, 5748, 814, 24, 117, "Input",ExpressionUUID->"552f1cde-9d25-416e-b327-3e99a148d08e",
 CellID->477611540],
Cell[266167, 5774, 398, 8, 39, "Message",ExpressionUUID->"cd5f6d56-a6b5-4e09-a863-0fb85405842e",
 CellID->361756198],
Cell[266568, 5784, 132, 2, 27, "Output",ExpressionUUID->"f5760f01-eda1-436b-a3a1-e4ef2d4de8e1",
 CellID->738198726]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[266749, 5792, 243, 5, 16, "ExampleDelimiter",ExpressionUUID->"7e311cd8-d3a3-4c0b-aca2-8938540d31e3",
 CellID->1691826070],
Cell[266995, 5799, 313, 8, 35, "ExampleText",ExpressionUUID->"fafa2daa-bb94-4f4c-862c-50a5ecbed75b",
 CellID->2104377387],
Cell[CellGroupData[{
Cell[267333, 5811, 2368, 69, 315, "Input",ExpressionUUID->"28ea3983-bcaa-408b-afb0-b618491219cc",
 CellID->1004507624],
Cell[269704, 5882, 411, 8, 20, "Message",ExpressionUUID->"2b8be618-bcc1-4a3c-8b15-88aa27b5bcfe",
 CellID->277517805],
Cell[270118, 5892, 411, 8, 20, "Message",ExpressionUUID->"0e019eee-18aa-4764-9693-11e38ef7409a",
 CellID->398846243],
Cell[270532, 5902, 3721, 67, 239, "Output",ExpressionUUID->"43d5851b-e25f-4513-94c0-c35a286a00ab",
 CellID->108144353]
}, Open  ]],
Cell[274268, 5972, 139, 1, 21, "ExampleText",ExpressionUUID->"f7563ba4-9add-4bb6-a629-6b4e3a64a7b9",
 CellID->1888454932],
Cell[CellGroupData[{
Cell[274432, 5977, 2827, 83, 337, "Input",ExpressionUUID->"16e51118-6003-4529-be46-047c9425de1b",
 CellID->1142885746],
Cell[277262, 6062, 3997, 72, 239, "Output",ExpressionUUID->"e0e9ab1f-3e8f-4b0c-beb8-3f640ee2ddf5",
 CellID->38596814]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[281298, 6139, 257, 5, 31, "ExampleSection",ExpressionUUID->"a269756b-25d4-4cbd-a7db-c29a89caf10c",
 CellID->1653164318],
Cell[281558, 6146, 249, 5, 19, "ExampleSection",ExpressionUUID->"df9f2ec2-f2dc-457d-9f85-b3985558a4e7",
 CellID->589267740]
}, Open  ]]
}
]
*)

